/dports/biology/molden/molden5.8/ |
H A D | progeo.f | 8 & disrms(MAXPNT),epoints(MAXPNT),isav(MAXPNT) local 18 & formax,forrms,dismax,disrms,epoints,isav, argument 36 dimension isav(*),coo(3,*),ianz(*) 48 call geogam(formax,forrms,dismax,disrms,epoints,isav) 50 call geogus(formax,forrms,dismax,disrms,epoints,isav) 52 call geogau(formax,forrms,dismax,disrms,epoints,isav) 67 call geocpmd(formax,forrms,dismax,disrms,epoints,isav, 71 call geoqcm(formax,forrms,dismax,disrms,epoints,isav) 73 call geoorc(formax,forrms,dismax,disrms,epoints,isav) 109 call geoxdt(formax,forrms,dismax,disrms,epoints,isav) [all …]
|
H A D | geomop.f | 1 subroutine geomop(formax,forrms,dismax,disrms,epoints,isav, argument 10 dimension isav(*) 44 isav(ngeoms) = 1 64 & formax,forrms,dismax,disrms,epoints,isav,coo,ianz,istat) argument 79 dimension isav(*) 151 isav(ngeoms) = 1
|
H A D | gmmcnv.f | 1 subroutine gmmcnv(formax,forrms,dismax,disrms,epoints,isav) argument 7 dimension isav(*) 17 if(isav(i).eq.1) then
|
H A D | geogau.f | 1 subroutine geogau(formax,forrms,dismax,disrms,epoints,isav) argument 15 dimension isav(*) 149 isav(nepnts) = 0 237 isav(nepnts) = 1 249 isav(nepnts) = 0 253 isav(nepnts) = 0
|
H A D | geogam.f | 1 subroutine geogam(formax,forrms,dismax,disrms,epoints,isav) argument 10 dimension isav(*) 117 isav(ntemp) = 1 120 isav(ntemp) = 0
|
H A D | rdmolf.f | 5 & formax,forrms,dismax,disrms,epoints,isav) argument 53 dimension isav(*) 638 isav(ngeoms) = 0 646 isav(ngeoms) = 1 775 dimension isav(*) 885 & call prtarr(iun3,'max-force',formax,ngeoms,isav) 891 & call prtarr(iun3,'max-step',dismax,ngeoms,isav) 894 & call prtarr(iun3,'rms-step',disrms,ngeoms,isav) 1005 subroutine prtarr(iun,str,arr,narr,isav) argument 1008 dimension arr(*),isav(*) [all …]
|
H A D | rdcpmd.f | 302 subroutine geocpmd(formax,forrms,dismax,disrms,epoints,isav, argument 311 dimension isav(*) 338 isav(i) = 1 621 subroutine dyncpdd(ipoints,isav,epoints) argument 629 dimension epoints(*),isav(*) 657 isav(i) = 1
|
H A D | rdnwch.f | 518 subroutine egeonw(formax,forrms,dismax,disrms,epoints,isav) argument 528 dimension isav(*) 585 isav(ngeoms) = 1 593 subroutine geonwc(formax,forrms,dismax,disrms,epoints,isav) argument 603 dimension isav(*) 675 isav(ngeoms) = 1
|
/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/odepack/ |
H A D | srcma.f | 1 subroutine srcma (rsav, isav, job) argument 14 integer isav, job local 19 dimension rsav(1), isav(1) 32 20 isav(i) = ils(i) 34 25 isav(lenils+i) = ilsa(i) 36 isav(lenils+lenila+1) = ieh(1) 37 isav(lenils+lenila+2) = ieh(2) 47 120 ils(i) = isav(i) 49 125 ilsa(i) = isav(lenils+i) 51 ieh(1) = isav(lenils+lenila+1) [all …]
|
H A D | prja.f | 9 integer iownd2, iowns2, jtyp, mused, mxordn, mxords, isav local 19 1 wm(*), iwm(*), rsav(240), isav(50) 70 call srcma (rsav, isav, 1) 74 call srcma (rsav, isav, 2) 90 call srcma (rsav, isav, 1) 94 call srcma (rsav, isav, 2) 127 call srcma (rsav, isav, 1) 131 call srcma (rsav, isav, 2) 152 call srcma (rsav, isav, 1) 156 call srcma (rsav, isav, 2)
|
H A D | stoda.f | 11 integer lm1, lm1p1, lm2, lm2p1, nqm1, nqm2, isav local 22 1 acor(1), wm(*), iwm(*), rsav(240), isav(50) 254 call srcma (rsav, isav, 1) 258 call srcma (rsav, isav, 2) 333 call srcma (rsav, isav, 1) 337 call srcma (rsav, isav, 2) 612 call srcma (rsav, isav, 1) 616 call srcma (rsav, isav, 2)
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
H A D | rscar1.f | 2 subroutine rscar1 (rsav, isav) argument 9 double precision isav local 14 dimension rsav(*), isav(*) 35 ils(i) = int(isav(l+i)) 39 ilsa(i) = int(isav(l+i)) 43 ilsr(i) = int(isav(l+i)) 47 ieh(1) = int(isav(l+1)) 48 ieh(2) = int(isav(l+2))
|
H A D | svcar1.f | 2 subroutine svcar1 (rsav, isav) 9 double precision isav 14 dimension rsav(*), isav(*) 35 isav(l+i) =ils(i) 39 isav(l+i)=ilsa(i) 43 isav(l+i)=ilsr(i) 47 isav(l+1)=ieh(1) 48 isav(l+2)=ieh(2)
|
H A D | svcma1.f | 2 subroutine svcma1 (rsav, isav) 12 double precision isav 17 dimension rsav(*), isav(*) 32 20 isav(i) = dble(ils(i)) 34 25 isav(lenils+i) = dble(ilsa(i)) 36 isav(lenils+lenila+1) = dble(ieh(1)) 37 isav(lenils+lenila+2) = dble(ieh(2))
|
H A D | rscma1.f | 2 subroutine rscma1 (rsav, isav) argument 9 double precision isav local 14 dimension rsav(*), isav(*) 29 20 ils(i) = int(isav(i)) 31 25 ilsa(i) = int(isav(lenils+i)) 33 ieh(1) = int(isav(lenils+lenila+1)) 34 ieh(2) = int(isav(lenils+lenila+2))
|
H A D | svcom1.f | 2 subroutine svcom1(rsav, isav) 11 double precision isav 15 dimension rsav(*), isav(*) 25 20 isav(i) = dble(ils(i)) 26 isav(lenils+1) =dble(ieh(1)) 27 isav(lenils+2) =dble(ieh(2))
|
H A D | rscom1.f | 2 subroutine rscom1 (rsav, isav) 9 double precision isav 13 dimension rsav(*), isav(*) 23 20 ils(i) = int(isav(i)) 24 ieh(1) = int(isav(lenils+1)) 25 ieh(2) = int(isav(lenils+2))
|
/dports/cad/feappv/feappv-4.1i/program/ |
H A D | filnam.f | 34 integer nargs, iinp, ioup, ires, isav, j local 220 isav = 1 221 if(lsav) isav = 2 224 & wd(isav),fsav
|
/dports/math/maxima/maxima-5.43.2/share/odepack/src/ |
H A D | dsrcom.lisp | 22 (defun dsrcom (rsav isav job) 24 (type (array f2cl-lib:integer4 (*)) isav) 39 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
|
H A D | dsrcpk.lisp | 22 (defun dsrcpk (rsav isav job) 24 (type (array f2cl-lib:integer4 (*)) isav) 52 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
|
H A D | dsrcms.lisp | 22 (defun dsrcms (rsav isav job) 24 (type (array f2cl-lib:integer4 (*)) isav) 52 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
|
H A D | dsrcma.lisp | 22 (defun dsrcma (rsav isav job) 24 (type (array f2cl-lib:integer4 (*)) isav) 52 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
|
H A D | dsrcar.lisp | 23 (defun dsrcar (rsav isav job) 25 (type (array f2cl-lib:integer4 (*)) isav) 65 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
|
H A D | dsrckr.lisp | 23 (defun dsrckr (rsav isav job) 25 (type (array f2cl-lib:integer4 (*)) isav) 72 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
|
/dports/science/conduit/conduit-0.8.0/src/tests/conduit/c/ |
H A D | t_c_conduit_node_set.cpp | 1242 short isav[6] = {2,4,8,16,32,64}; in TEST() local 1266 conduit_node_set_short_ptr(n,isav,6); in TEST() 1272 EXPECT_EQ(isav_ptr[i],isav[i]); in TEST() 1274 EXPECT_NE(&isav_ptr[i],&isav[i]); in TEST() 1328 EXPECT_EQ(isav_ptr[i],isav[i]); in TEST() 1330 EXPECT_EQ(&isav_ptr[i],&isav[i]); in TEST() 1775 short isav[6] = {2,4,8,16,32,64}; in TEST() local 1805 EXPECT_EQ(isav_ptr[i],isav[i]); in TEST() 1807 EXPECT_NE(&isav_ptr[i],&isav[i]); in TEST() 1861 EXPECT_EQ(isav_ptr[i],isav[i]); in TEST() [all …]
|