Searched refs:ecunit (Results 1 – 1 of 1) sorted by relevance
| /dports/science/atompaw/atompaw-4.1.1.0/src/ |
| H A D | input_dataset_mod.F90 | 224 INTEGER,PARAMETER :: ifunit=111,ecunit=222 local
264 OPEN(ecunit,file=trim(echofile),form='formatted')
295 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
492 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
622 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
641 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
714 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
740 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
798 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
941 IF (has_to_echo) WRITE(ecunit,'(a)') TRIM(inputline)
[all …]
|