Home
last modified time | relevance | path

Searched refs:isav (Results 1 – 25 of 66) sorted by relevance

123

/dports/biology/molden/molden5.8/
H A Dprogeo.f8 & 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 Dgeomop.f1 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 Dgmmcnv.f1 subroutine gmmcnv(formax,forrms,dismax,disrms,epoints,isav) argument
7 dimension isav(*)
17 if(isav(i).eq.1) then
H A Dgeogau.f1 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 Dgeogam.f1 subroutine geogam(formax,forrms,dismax,disrms,epoints,isav) argument
10 dimension isav(*)
117 isav(ntemp) = 1
120 isav(ntemp) = 0
H A Drdmolf.f5 & 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 Drdcpmd.f302 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 Drdnwch.f518 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 Dsrcma.f1 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 Dprja.f9 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 Dstoda.f11 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 Drscar1.f2 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 Dsvcar1.f2 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 Dsvcma1.f2 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 Drscma1.f2 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 Dsvcom1.f2 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 Drscom1.f2 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 Dfilnam.f34 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 Ddsrcom.lisp22 (defun dsrcom (rsav isav job)
24 (type (array f2cl-lib:integer4 (*)) isav)
39 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
H A Ddsrcpk.lisp22 (defun dsrcpk (rsav isav job)
24 (type (array f2cl-lib:integer4 (*)) isav)
52 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
H A Ddsrcms.lisp22 (defun dsrcms (rsav isav job)
24 (type (array f2cl-lib:integer4 (*)) isav)
52 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
H A Ddsrcma.lisp22 (defun dsrcma (rsav isav job)
24 (type (array f2cl-lib:integer4 (*)) isav)
52 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
H A Ddsrcar.lisp23 (defun dsrcar (rsav isav job)
25 (type (array f2cl-lib:integer4 (*)) isav)
65 (isav f2cl-lib:integer4 isav-%data% isav-%offset%))
H A Ddsrckr.lisp23 (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 Dt_c_conduit_node_set.cpp1242 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 …]

123