| /dports/science/nwchem-data/nwchem-7.0.2-release/src/drdy/ |
| H A D | rpath.F | 22 if (string(istrt:istrt+8).eq.'scalemass') then
32 else if (string(istrt:istrt+4).eq.'sstep') then
42 else if (string(istrt:istrt+4).eq.'ssave') then
52 else if (string(istrt:istrt+4).eq.'shess') then
62 else if (string(istrt:istrt+2).eq.'slp') then
72 else if (string(istrt:istrt+2).eq.'slm') then
82 else if (string(istrt:istrt+5).eq.'saddle') then
88 else if (string(istrt:istrt+3).eq.'sign') then
91 psign = string(istrt:istrt+6)
100 else if (string(istrt:istrt+6).eq.'integra') then
[all …]
|
| H A D | rgener.F | 14 Integer iend,istrt,isect local
25 if (string(istrt:istrt+4).eq.'title') then
30 else if (string(istrt:istrt+5).eq.'restar') then
33 else if (string(istrt:istrt+6).eq.'re-star') then
36 else if (string(istrt:istrt+4).eq.'atoms') then
39 else if (string(istrt:istrt+10).eq.'singlepoint') then
42 else if (string(istrt:istrt+7).eq.'savefile') then
48 if(string(istrt:istrt+3).eq.'vecs') then
50 elseif(string(istrt:istrt+3).eq.'hess') then
52 elseif(string(istrt:istrt+2).eq.'spc') then
[all …]
|
| H A D | rstat.F | 3 subroutine drdy_rstat(string,iend,istrt,jtype) argument
15 Integer iend,istrt,jtype
23 call drdy_rline(string,istrt,isect,iend)
27 if (string(istrt:istrt+3).eq.'geom') then
28 if (jtype.le.4) call drdy_rgeom(string,istrt,jtype)
29 if (jtype.eq.5) call drdy_rgsad(string,istrt,jtype)
31 else if (string(istrt:istrt+6).eq.'species') then !0603PF97
32 call drdy_rword(string,istrt,ierr)
34 idmn = string(istrt:istrt+7)
46 write(fu6,1000) string(istrt:80)
[all …]
|
| H A D | rword.F | 7 subroutine drdy_rword(string,istrt,ierr) argument
25 do while (istrt.le.79.and.jblank.eq.0)
26 istrt = istrt+1
27 if (string(istrt:istrt).eq.' ') then
30 do while (string(istrt:istrt).eq.' '.and.ierr.eq.0)
31 istrt = istrt + 1
32 if (istrt.gt.80) ierr=1
35 if (istrt.eq.80) ierr=1
|
| H A D | ratoms.F | 2 subroutine drdy_ratoms(string,istrt)
17 Integer istrt
61 call drdy_rline(string,istrt,isect,iend)
62 do while (string(istrt:istrt+2).ne.'end' .and. itot.lt.natoms)
70 ib = istrt
71 call drdy_rword(string,istrt,ierr)
72 ie = istrt - 1
76 j = ichar(string(istrt:istrt)) - ichar('0')
91 if (string(istrt:istrt+1).eq.drdy_atsym(i)) then
99 write(fu6,1200)string(istrt:istrt+1)
[all …]
|
| H A D | rgsad.F | 2 subroutine drdy_rgsad(string,istrt,jtype)
19 Integer istrt,jtype
28 call drdy_rline(string,istrt,isect,iend)
39 ibegin = istrt
40 call drdy_rword(string,istrt,ierr)
41 iend = istrt - 1
54 ibegin = istrt
55 call drdy_rword(string,istrt,ierr)
56 iend = istrt - 1
72 call drdy_rline(string,istrt,isect,iend)
[all …]
|
| H A D | rgeom.F | 2 subroutine drdy_rgeom(string,istrt,jtype) argument
18 Integer istrt,jtype local
25 call drdy_rline(string,istrt,isect,iend)
28 do while(string(istrt:istrt+2).ne.'end'.and.nratm.le.natom)
41 ibegin = istrt
42 call drdy_rword(string,istrt,ierr)
43 iend = istrt - 1
63 ibegin = istrt
64 call drdy_rword(string,istrt,ierr)
65 iend = istrt - 1
[all …]
|
| H A D | io.F | 272 Integer istrt,isect,iend
305 istrt = i-1
309 if (string(istrt:istrt).eq.'*') isect=1
313 do j=istrt,80
336 Integer istrt,ierr
347 istrt = istrt+1
348 if (string(istrt:istrt).eq.' ') then
351 do while (string(istrt:istrt).eq.' '.and.ierr.eq.0)
352 istrt = istrt + 1
353 if (istrt.gt.80) ierr=1
[all …]
|
| H A D | read_drdy_rtdb.F | 21 integer istrt, isect, iend
59 call drdy_rline(string,istrt,isect,iend)
83 j = istrt + 1
85 call drdy_rgener(string,iend,istrt)
88 call drdy_rstat(string,iend,istrt,1)
91 call drdy_rstat(string,iend,istrt,2)
94 call drdy_rstat(string,iend,istrt,3)
97 call drdy_rstat(string,iend,istrt,4)
100 call drdy_rstat(string,iend,istrt,5)
102 call drdy_rpath(string,iend,istrt)
|
| H A D | rline.F | 6 subroutine drdy_rline(string,istrt,isect,iend) argument
27 integer istrt
63 istrt = i-1
67 if (string(istrt:istrt).eq.'*') isect=1
71 do j=istrt,80
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/drdy/ |
| H A D | rpath.F | 22 if (string(istrt:istrt+8).eq.'scalemass') then
32 else if (string(istrt:istrt+4).eq.'sstep') then
42 else if (string(istrt:istrt+4).eq.'ssave') then
52 else if (string(istrt:istrt+4).eq.'shess') then
62 else if (string(istrt:istrt+2).eq.'slp') then
72 else if (string(istrt:istrt+2).eq.'slm') then
82 else if (string(istrt:istrt+5).eq.'saddle') then
88 else if (string(istrt:istrt+3).eq.'sign') then
91 psign = string(istrt:istrt+6)
100 else if (string(istrt:istrt+6).eq.'integra') then
[all …]
|
| H A D | rgener.F | 14 Integer iend,istrt,isect
25 if (string(istrt:istrt+4).eq.'title') then
30 else if (string(istrt:istrt+5).eq.'restar') then
33 else if (string(istrt:istrt+6).eq.'re-star') then
36 else if (string(istrt:istrt+4).eq.'atoms') then
39 else if (string(istrt:istrt+10).eq.'singlepoint') then
42 else if (string(istrt:istrt+7).eq.'savefile') then
48 if(string(istrt:istrt+3).eq.'vecs') then
50 elseif(string(istrt:istrt+3).eq.'hess') then
52 elseif(string(istrt:istrt+2).eq.'spc') then
[all …]
|
| H A D | rstat.F | 3 subroutine drdy_rstat(string,iend,istrt,jtype) argument
15 Integer iend,istrt,jtype
23 call drdy_rline(string,istrt,isect,iend)
27 if (string(istrt:istrt+3).eq.'geom') then
28 if (jtype.le.4) call drdy_rgeom(string,istrt,jtype)
29 if (jtype.eq.5) call drdy_rgsad(string,istrt,jtype)
31 else if (string(istrt:istrt+6).eq.'species') then !0603PF97
32 call drdy_rword(string,istrt,ierr)
34 idmn = string(istrt:istrt+7)
46 write(fu6,1000) string(istrt:80)
[all …]
|
| H A D | rword.F | 7 subroutine drdy_rword(string,istrt,ierr) argument
25 do while (istrt.le.79.and.jblank.eq.0)
26 istrt = istrt+1
27 if (string(istrt:istrt).eq.' ') then
30 do while (string(istrt:istrt).eq.' '.and.ierr.eq.0)
31 istrt = istrt + 1
32 if (istrt.gt.80) ierr=1
35 if (istrt.eq.80) ierr=1
|
| H A D | ratoms.F | 2 subroutine drdy_ratoms(string,istrt)
17 Integer istrt
61 call drdy_rline(string,istrt,isect,iend)
62 do while (string(istrt:istrt+2).ne.'end' .and. itot.lt.natoms)
70 ib = istrt
71 call drdy_rword(string,istrt,ierr)
72 ie = istrt - 1
76 j = ichar(string(istrt:istrt)) - ichar('0')
91 if (string(istrt:istrt+1).eq.drdy_atsym(i)) then
99 write(fu6,1200)string(istrt:istrt+1)
[all …]
|
| H A D | rgsad.F | 2 subroutine drdy_rgsad(string,istrt,jtype)
19 Integer istrt,jtype
28 call drdy_rline(string,istrt,isect,iend)
39 ibegin = istrt
40 call drdy_rword(string,istrt,ierr)
41 iend = istrt - 1
54 ibegin = istrt
55 call drdy_rword(string,istrt,ierr)
56 iend = istrt - 1
72 call drdy_rline(string,istrt,isect,iend)
[all …]
|
| H A D | rgeom.F | 2 subroutine drdy_rgeom(string,istrt,jtype)
18 Integer istrt,jtype
25 call drdy_rline(string,istrt,isect,iend)
28 do while(string(istrt:istrt+2).ne.'end'.and.nratm.le.natom)
41 ibegin = istrt
42 call drdy_rword(string,istrt,ierr)
43 iend = istrt - 1
63 ibegin = istrt
64 call drdy_rword(string,istrt,ierr)
65 iend = istrt - 1
[all …]
|
| H A D | io.F | 272 Integer istrt,isect,iend
305 istrt = i-1
309 if (string(istrt:istrt).eq.'*') isect=1
313 do j=istrt,80
336 Integer istrt,ierr
347 istrt = istrt+1
348 if (string(istrt:istrt).eq.' ') then
351 do while (string(istrt:istrt).eq.' '.and.ierr.eq.0)
352 istrt = istrt + 1
353 if (istrt.gt.80) ierr=1
[all …]
|
| H A D | read_drdy_rtdb.F | 21 integer istrt, isect, iend
59 call drdy_rline(string,istrt,isect,iend)
83 j = istrt + 1
85 call drdy_rgener(string,iend,istrt)
88 call drdy_rstat(string,iend,istrt,1)
91 call drdy_rstat(string,iend,istrt,2)
94 call drdy_rstat(string,iend,istrt,3)
97 call drdy_rstat(string,iend,istrt,4)
100 call drdy_rstat(string,iend,istrt,5)
102 call drdy_rpath(string,iend,istrt)
|
| H A D | rline.F | 6 subroutine drdy_rline(string,istrt,isect,iend) argument
27 integer istrt
63 istrt = i-1
67 if (string(istrt:istrt).eq.'*') isect=1
71 do j=istrt,80
|
| /dports/graphics/grads/grads-1.9b4/src/ |
| H A D | gamach.c | 88 int istrt,iend,cstrt; in gagbb() local
94 istrt = ioff/8; in gagbb()
139 numb = iend - istrt; in gagbb()
219 int istrt,iend,cstrt; in gapbb() local
223 istrt = ioff/8; in gapbb()
272 numb = iend - istrt; in gapbb()
362 int istrt,iend,cstrt; in gagbb() local
368 istrt = ioff/8; in gagbb()
413 numb = iend - istrt; in gagbb()
492 int istrt,iend,cstrt; in gapbb() local
[all …]
|
| /dports/cad/feappv/feappv-4.1i/user/ |
| H A D | umodel.f | 2 subroutine umodel(umat,eps,theta,td,d,ud,hn,h1,nh,ii,istrt, argument
38 integer umat,nh,istrt,isw, ii
47 call umatl1(eps,theta,td,d,ud,hn,h1,nh,ii,istrt, sig,dd, isw)
52 call umatl2(eps,theta,td,d,ud,hn,h1,nh,ii,istrt, sig,dd, isw)
57 call umatl3(eps,theta,td,d,ud,hn,h1,nh,ii,istrt, sig,dd, isw)
62 call umatl4(eps,theta,td,d,ud,hn,h1,nh,ii,istrt, sig,dd, isw)
67 call umatl5(eps,theta,td,d,ud,hn,h1,nh,ii,istrt, sig,dd, isw)
|
| /dports/lang/slib/slib-3b6/ |
| H A D | schmooz.scm | 88 (define (parse-args line istrt)
90 (let loop-args ((istrt istrt)
92 (let loop ((iend istrt))
98 (if (> iend istrt)
103 (reverse (if (> iend istrt)
119 (let skip ((istrt istrt))
120 (cond ((>= istrt (string-length line)) (cons istrt '()))
122 (skip (+ istrt 1)))
145 (let loop ((istrt 0)
434 (define (skip-ws line istrt)
[all …]
|
| /dports/biology/molden/molden5.8/ |
| H A D | rdvect.f | 97 istrt = 0
125 if (istrt.eq.0.and.index(line,'ZZZZ').ne.0) then
126 istrt = irow
131 if (istrt.ne.0) then
141 vectrs((imin+k-2)*mxorb + (istrt+l-1)) =
145 istrt = 0
173 istrt = 0
187 if (istrt.eq.0.and.index(line,'ZZZZ').ne.0) then
188 istrt = irow
193 if (istrt.ne.0) then
[all …]
|
| H A D | readvv.f | 47 istrt = 0
77 if (istrt.eq.0.and.line(12:15).eq.' xxy') then
79 istrt = j
82 if (istrt.ne.0) then
91 v((imin+k-1-1)*mxorb+(istrt+l-1)) = vt(irord(l),k)
94 istrt = 0
|