| /dports/science/xtb/xtb-6.4.1/src/ |
| H A D | intgrad.f90 | 72 & sqrt(1.0_wp/5.0_wp), &
84 & 0.0_wp,0.0_wp,0.0_wp,1.0_wp,0.0_wp,0.0_wp, &
108 gm=0.5_wp/gama
177 do jj=1,6
178 sspher=0
188 do jj=1,6
198 end select
218 s2(ii,jj)=sspher
256 cfs(1)=ae*ae*ae*ae*cfs(5)
276 if(la.eq.0.and.lb.eq.0) return
[all …]
|
| H A D | xhelp.f90 | 18 subroutine citation(iunit) argument
19 integer,intent(in) :: iunit local
75 subroutine help(iunit) argument
77 integer, intent(in) :: iunit local
|
| H A D | gfn_prparam.f90 | 18 subroutine gfn1_prparam(iunit,n,at,par) argument
23 integer, intent(in) :: iunit local
84 subroutine gfn2_prparam(iunit,n,at,par) argument
89 integer, intent(in) :: iunit local
142 subroutine gfn0_prparam(iunit,n,at,par) argument
147 integer, intent(in) :: iunit local
|
| H A D | enso_printout.f90 | 18 subroutine enso_printout(iunit,res) argument
24 integer,intent(in) :: iunit local
|
| /dports/math/fftw3/fftw-3.3.9/doc/ |
| H A D | f77_wisdom.f | 33 subroutine write_char(c, iunit) argument
35 integer iunit local
40 subroutine export_wisdom_to_file(iunit) argument
41 integer iunit local
52 subroutine read_char(ic, iunit) argument
54 integer iunit local
74 subroutine import_wisdom_from_file(isuccess, iunit) argument
76 integer iunit local
|
| /dports/math/fftw3-float/fftw-3.3.9/doc/ |
| H A D | f77_wisdom.f | 33 subroutine write_char(c, iunit) argument
35 integer iunit local
40 subroutine export_wisdom_to_file(iunit) argument
41 integer iunit local
52 subroutine read_char(ic, iunit) argument
54 integer iunit local
74 subroutine import_wisdom_from_file(isuccess, iunit) argument
76 integer iunit local
|
| /dports/math/fftw3-long/fftw-3.3.9/doc/ |
| H A D | f77_wisdom.f | 33 subroutine write_char(c, iunit) argument
35 integer iunit local
40 subroutine export_wisdom_to_file(iunit) argument
41 integer iunit local
52 subroutine read_char(ic, iunit) argument
54 integer iunit local
74 subroutine import_wisdom_from_file(isuccess, iunit) argument
76 integer iunit local
|
| /dports/math/fftw3-quad/fftw-3.3.9/doc/ |
| H A D | f77_wisdom.f | 33 subroutine write_char(c, iunit) argument
35 integer iunit local
40 subroutine export_wisdom_to_file(iunit) argument
41 integer iunit local
52 subroutine read_char(ic, iunit) argument
54 integer iunit local
74 subroutine import_wisdom_from_file(isuccess, iunit) argument
76 integer iunit local
|
| /dports/comms/wsjtz/wsjtx/map65/libm65/ |
| H A D | f77_wisdom.f | 1 subroutine write_char(c, iunit) argument
3 integer iunit local
8 subroutine export_wisdom_to_file(iunit) argument
9 integer iunit local
15 subroutine read_char(ic, iunit) argument
17 integer iunit local
39 subroutine import_wisdom_from_file(isuccess, iunit) argument
41 integer iunit local
|
| /dports/science/berkeleygw/BGW-2.0.0/Common/ |
| H A D | kernel_io_inc.f90 | 32 subroutine READWRITE_FORM_KERNELHEADER(iunit, kernel) argument
33 integer, intent(in) :: iunit !< unit number local
109 subroutine READWRITE_KERNELHEADER(iunit, kernel) argument
110 integer, intent(in) :: iunit !< unit number local
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/tools/autotune_grid/ |
| H A D | generate.f90 | 18 SUBROUTINE collocate_generate_stub(iunit,lp) argument
20 INTEGER, INTENT(IN) :: iunit,lp local
47 INTEGER, INTENT(IN) :: iunit,lp local
332 SUBROUTINE collocate_generate_default(iunit) argument
334 INTEGER, INTENT(IN) :: iunit local
435 INTEGER, INTENT(IN) :: iunit,lmax local
470 SUBROUTINE integrate_generate_stub(iunit,lp) argument
471 INTEGER, INTENT(IN) :: iunit,lp local
499 INTEGER, INTENT(IN) :: iunit,lp local
758 INTEGER, INTENT(IN) :: iunit local
[all …]
|
| /dports/science/cp2k-data/cp2k-7.1.0/tools/autotune_grid/ |
| H A D | generate.f90 | 18 SUBROUTINE collocate_generate_stub(iunit,lp) argument
20 INTEGER, INTENT(IN) :: iunit,lp local
47 INTEGER, INTENT(IN) :: iunit,lp local
332 SUBROUTINE collocate_generate_default(iunit) argument
334 INTEGER, INTENT(IN) :: iunit local
435 INTEGER, INTENT(IN) :: iunit,lmax local
470 SUBROUTINE integrate_generate_stub(iunit,lp) argument
471 INTEGER, INTENT(IN) :: iunit,lp local
499 INTEGER, INTENT(IN) :: iunit,lp local
758 INTEGER, INTENT(IN) :: iunit local
[all …]
|
| /dports/net/v2ray/v2ray-core-4.36.2/vendor/github.com/golang/mock/sample/concurrent/ |
| H A D | concurrent_test.go | 19 case r := <-result:
24 }
25
26 // testConcurrentFails is expected to fail (and is disabled). It
|
| /dports/science/berkeleygw/BGW-2.0.0/MeanField/PARATEC/ |
| H A D | iolib.f90 | 36 subroutine iolib_find_marker(imark, iunit, info) argument
41 iunit ! the unit to be browsed local
84 subroutine iolib_skip(iunit, imark, ierr) argument
88 integer, intent(in) :: iunit, & ! the io unit to be used local
|
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | dynamics.f | 33 subroutine npr(istep,iunit,natoms,fa,stress,tp,tt,dt, argument
560 subroutine pr(istep,iunit,iquench,natoms,fa,stress,tp,dt, argument
1081 subroutine nose( istep, iunit, natoms, fa, tt, dt, ma, mn, ntcon, argument
1373 subroutine anneal(istep,iunit,ianneal,taurelax,bulkm, argument
1749 subroutine verlet1(istep,iunit,iquench,natoms,fa,dt,ma,ntcon,va, argument
1918 subroutine verlet2(istep,iunit,iquench,natoms,fa,dt,ma,ntcon,va, argument
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
| H A D | flush.c | 28 int flush(iunit) in flush() argument
37 int flush_(iunit) in flush_() argument
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
| H A D | flush.c | 28 int flush(iunit) in flush() argument
37 int flush_(iunit) in flush_() argument
|
| /dports/science/xtb/xtb-6.4.1/TESTSUITE/ |
| H A D | geometry_reader.f90 | 24 integer :: iunit local
79 integer :: iunit local
180 integer :: iunit local
227 integer :: iunit local
286 integer :: iunit local
343 integer :: iunit local
400 integer :: iunit local
451 integer :: iunit local
506 integer :: iunit local
573 integer :: iunit local
[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
74 INTEGER :: iunit local
105 INTEGER :: iunit local
126 INTEGER :: iunit local
146 INTEGER :: iunit local
238 SUBROUTINE printout_cell( iunit, h, nfi, tps ) argument
242 INTEGER, INTENT(IN) :: iunit local
267 SUBROUTINE printout_stress( iunit, str, nfi, tps ) argument
271 INTEGER, INTENT(IN) :: iunit local
298 INTEGER, INTENT(IN) :: iunit, nat local
[all …]
|
| /dports/science/octopus/octopus-10.5/src/basic/ |
| H A D | io.F90 | 464 subroutine io_close(iunit, grp) argument
465 integer, intent(inout) :: iunit local
501 subroutine io_status(iunit) argument
502 integer, intent(in) :: iunit local
534 integer :: iunit, err local
670 integer, intent(in) :: iunit local
703 subroutine iopar_backspace(grp, iunit) argument
705 integer, intent(in) :: iunit local
720 integer, intent(in) :: iunit local
750 subroutine io_skip_header(iunit) argument
[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
|
| /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
|
| /dports/science/tinker/tinker/source/ |
| H A D | openend.f | 24 subroutine openend (iunit,name) argument
26 integer iunit local
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/D3dB/ |
| H A D | D3dB-tcgmsg.F | 2198 integer iunit local
2383 integer iunit local
2556 integer iunit local
2751 integer iunit local
2955 integer iunit local
3122 integer iunit local
3323 integer iunit local
3488 integer iunit local
3646 integer iunit local
3824 integer iunit local
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/D3dB/ |
| H A D | D3dB-tcgmsg.F | 2198 integer iunit local
2383 integer iunit local
2556 integer iunit local
2751 integer iunit local
2955 integer iunit local
3122 integer iunit local
3323 integer iunit local
3488 integer iunit local
3646 integer iunit local
3824 integer iunit local
[all …]
|