Home
last modified time | relevance | path

Searched refs:iunit (Results 1 – 25 of 799) sorted by relevance

12345678910>>...32

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/tools/autotune_grid/
H A Dgenerate.f9020 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 Dgenerate.f9020 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 Dfilehand.F13 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 Dfilehand.F13 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 Dtestf77.f47 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 Dtestf77.f47 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 Dccp4_diskio_f.c310 (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 Dvtk_inc.F9034 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 Dcp2k_info.F281 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 Dcp2k_info.F284 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 Dprintout_base.f9030 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 Dgeometry_reader.f9024 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 Dwsc.f9080 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 Diolib.f9053 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 Dzlpack.f9077 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 Dbackspace_10.f907 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 …]

12345678910>>...32