/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/tools/autotune_grid/ |
H A D | generate.f90 | 20 INTEGER, INTENT(IN) :: iunit,lp local 47 INTEGER, INTENT(IN) :: iunit,lp local 130 write(iunit,'(A)')" ENDDO" 334 INTEGER, INTENT(IN) :: iunit local 435 INTEGER, INTENT(IN) :: iunit,lmax local 449 write(iunit,'(A)')" END SELECT" 471 INTEGER, INTENT(IN) :: iunit,lp local 499 INTEGER, INTENT(IN) :: iunit,lp local 702 write(iunit,'(A)')" ENDDO" 758 INTEGER, INTENT(IN) :: iunit local [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/tools/autotune_grid/ |
H A D | generate.f90 | 20 INTEGER, INTENT(IN) :: iunit,lp local 47 INTEGER, INTENT(IN) :: iunit,lp local 130 write(iunit,'(A)')" ENDDO" 334 INTEGER, INTENT(IN) :: iunit local 435 INTEGER, INTENT(IN) :: iunit,lmax local 449 write(iunit,'(A)')" END SELECT" 471 INTEGER, INTENT(IN) :: iunit,lp local 499 INTEGER, INTENT(IN) :: iunit,lp local 702 write(iunit,'(A)')" ENDDO" 758 INTEGER, INTENT(IN) :: iunit local [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
H A D | filehand.F | 13 integer :: iunit 18 do iunit = 1, noccun 21 do iunit = 7, mxpunit 46 & iunit 74 integer :: iunit 79 iunit = iwish 125 if (iunit.le.mxpunit.and.iunit.gt.0.and.ifrunit(iunit).eq.1) then 131 & iunit, ifrunit(iunit) 157 integer :: iunit 163 iopen_uus = iunit [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | filehand.F | 13 integer :: iunit 18 do iunit = 1, noccun 21 do iunit = 7, mxpunit 46 & iunit 74 integer :: iunit 79 iunit = iwish 125 if (iunit.le.mxpunit.and.iunit.gt.0.and.ifrunit(iunit).eq.1) then 131 & iunit, ifrunit(iunit) 157 integer :: iunit 163 iopen_uus = iunit [all …]
|
/dports/astro/cfitsio/cfitsio-3.49/ |
H A D | testf77.f | 47 integer iunit, tmpunit variable 113 iunit = 15 119 & ,iunit, status 120 call ftclos(iunit, status) 170 call ftprec(iunit, 217 call ftplsw(iunit, status) 222 call ftphis(iunit, 226 call ftpdat(iunit, status) 764 call ftirec(iunit,26, 795 call ftmrec(iunit, 25, [all …]
|
/dports/science/healpix/Healpix_3.50/src/healpy/cfitsio/ |
H A D | testf77.f | 47 integer iunit, tmpunit 113 iunit = 15 119 & ,iunit, status 120 call ftclos(iunit, status) 170 call ftprec(iunit, 217 call ftplsw(iunit, status) 222 call ftphis(iunit, 226 call ftpdat(iunit, status) 764 call ftirec(iunit,26, 795 call ftmrec(iunit, 25, [all …]
|
/dports/science/libccp4/libccp4-6.5.1/fortran/ |
H A D | ccp4_diskio_f.c | 310 (int *iunit, int *ipos), 311 (int *iunit, int *ipos), 312 (int *iunit, int *ipos)) 328 (int *iunit), 329 (int *iunit), 330 (int *iunit)) 335 free(_ioChannels[*iunit]); 336 _ioChannels[*iunit]=NULL; 662 (int *iunit, int *lrecl), 663 (int *iunit, int *lrecl), [all …]
|
/dports/science/octopus/octopus-10.5/src/grid/ |
H A D | vtk_inc.F90 | 34 integer :: iunit, np 62 call io_close(iunit) 84 write(iunit, '(1a)') ' ' 88 call io_close(iunit) 118 integer :: iunit, np 148 call io_close(iunit) 174 call io_close(iunit) 216 integer :: iunit 268 call io_close(iunit) 284 call io_close(iunit) [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | cp2k_info.F | 281 SUBROUTINE print_cp2k_license(iunit) argument 282 INTEGER :: iunit local 344 SUBROUTINE write_restart_header(iunit) argument 345 INTEGER, INTENT(IN) :: iunit local 355 WRITE (UNIT=iunit, FMT="(T2,A)") "# Version information for this restart file " 356 WRITE (UNIT=iunit, FMT="(T2,A)") "# current date "//TRIM(datx) 357 WRITE (UNIT=iunit, FMT="(T2,A)") "# current working dir "//TRIM(cwd) 359 WRITE (UNIT=iunit, FMT="(T2,A,T31,A50)") & 362 WRITE (UNIT=iunit, FMT="(T2,A,T31,A50)") & 365 WRITE (UNIT=iunit, FMT="(T2,A,T31,A50)") & [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | cp2k_info.F | 284 SUBROUTINE print_cp2k_license(iunit) argument 285 INTEGER :: iunit local 346 SUBROUTINE write_restart_header(iunit) argument 347 INTEGER, INTENT(IN) :: iunit local 357 WRITE (UNIT=iunit, FMT="(T2,A)") "# Version information for this restart file " 358 WRITE (UNIT=iunit, FMT="(T2,A)") "# current date "//TRIM(datx) 359 WRITE (UNIT=iunit, FMT="(T2,A)") "# current working dir "//TRIM(cwd) 361 WRITE (UNIT=iunit, FMT="(T2,A,T31,A50)") & 364 WRITE (UNIT=iunit, FMT="(T2,A,T31,A50)") & 367 WRITE (UNIT=iunit, FMT="(T2,A,T31,A50)") & [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
H A D | printout_base.f90 | 30 INTEGER :: iunit, ierr, ios local 55 OPEN(UNIT=iunit, FILE=fort_unit(iunit), & 57 CLOSE( iunit ) 74 INTEGER :: iunit local 90 OPEN( UNIT=iunit, FILE=fort_unit(iunit), STATUS='unknown', POSITION='append') 105 INTEGER :: iunit local 126 INTEGER :: iunit local 146 INTEGER :: iunit local 252 WRITE( iunit, 40 ) 281 WRITE( iunit, 40 ) [all …]
|
/dports/science/xtb/xtb-6.4.1/TESTSUITE/ |
H A D | geometry_reader.f90 | 24 integer :: iunit local 31 rewind(iunit) 79 integer :: iunit local 86 rewind(iunit) 189 rewind(iunit) 234 write(iunit,file_coord_CaF2_3d); rewind(iunit) 293 write(iunit,file_coord_CaMgCO_3d); rewind(iunit) 458 rewind(iunit) 513 rewind(iunit) 580 rewind(iunit) [all …]
|
/dports/science/xtb/xtb-6.4.1/src/type/ |
H A D | wsc.f90 | 80 integer, intent(in) :: iunit 84 write(iunit,'(72(">"))') 85 write(iunit,'(1x,"*",1x,a)') "Writing 'tb_wsc' class" 86 write(iunit,'( "->",1x,a)') comment 87 write(iunit,'(72("-"))') 88 write(iunit,'(1x,"*",1x,a)') "status of the fields" 89 write(iunit,dfmt) "integer :: n ",self%n 94 write(iunit,'(72("-"))') 95 write(iunit,'(1x,"*",1x,a)') "allocation status" 100 write(iunit,'(72("-"))') [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/MeanField/PARATEC/ |
H A D | iolib.f90 | 53 rewind(iunit) 110 read(iunit, *, iostat=iostat) 111 read(iunit, *, iostat=iostat) 112 read(iunit, *, iostat=iostat) 113 read(iunit, *, iostat=iostat) 114 read(iunit, *, iostat=iostat) 115 read(iunit, *, iostat=iostat) 116 read(iunit, *, iostat=iostat) 117 read(iunit, *, iostat=iostat) 121 read(iunit, *, iostat=iostat) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph1/swpack.win/ |
H A D | zlpack.f90 | 77 iunit = iufopn() 116 write(iunit) '}"' 119 write(iunit) is2 132 write(iunit) '}p' 153 close(iunit) 222 write(iunit) '0' 274 write(iunit) is2 279 write(iunit) '1' 296 write(iunit) is2 390 write(iunit) '2' [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/ |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable 11 open (iunit) 15 close (iunit) 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'(a)',iostat=ios) line 25 read (iunit,'(a)',iostat=ios) line 26 if (ios /= 0) backspace (iunit) 27 rewind (iunit) 28 read (iunit,'(a)',iostat=ios) line [all …]
|