| /dports/science/getdp/getdp-3.4.0-source/contrib/Sparskit/ |
| H A D | iters.f | 487 ipar(8) = ipar(9)
501 ipar(8) = ipar(9)
548 if (ipar(1).lt.0) ipar(12) = ipar(1)
671 ipar(8) = ipar(9)
685 ipar(8) = ipar(9)
724 ipar(8) = ipar(9)
779 if (ipar(1).lt.0) ipar(12) = ipar(1)
1016 if (ipar(1).lt.0) ipar(12) = ipar(1)
1290 if (ipar(1).lt.0) ipar(12) = ipar(1)
1575 if (ipar(1).lt.0) ipar(12) = ipar(1)
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/qhop/ |
| H A D | qhop_prob.F | 96 ipar=ipar+1
107 e120=e12fxy(ipar,1)+e12fxy(ipar,2)*dist+e12fxy(ipar,3)*(dist**2)
113 tstpar1=tstval(ipar,1)+tstval(ipar,2)*300
114 tstpar2=tstval(ipar,3)+tstval(ipar,4)*300
122 + +defe12(ipar,3)+defe12(ipar,4)*e12+(defe12(ipar,5)
124 zpe1=zpef(ipar,1)*exp(-zpef(ipar,2)*preldeltae)+zpef(ipar,3)
127 kabba=exp(tunnel(ipar,1)+(tunnel(ipar,2)+tunnel(ipar,3)*300
131 kabba=exp(tunnel(ipar,1)+(tunnel(ipar,2)+tunnel(ipar,3)*300+
157 zpe1=zpef(ipar,1)*exp(-zpef(ipar,2)*preldeltae)+zpef(ipar,3)
160 kabba=exp(tunnel(ipar,1)+(tunnel(ipar,2)+tunnel(ipar,3)*300+
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/qhop/ |
| H A D | qhop_prob.F | 96 ipar=ipar+1
107 e120=e12fxy(ipar,1)+e12fxy(ipar,2)*dist+e12fxy(ipar,3)*(dist**2)
113 tstpar1=tstval(ipar,1)+tstval(ipar,2)*300
114 tstpar2=tstval(ipar,3)+tstval(ipar,4)*300
122 + +defe12(ipar,3)+defe12(ipar,4)*e12+(defe12(ipar,5)
124 zpe1=zpef(ipar,1)*exp(-zpef(ipar,2)*preldeltae)+zpef(ipar,3)
127 kabba=exp(tunnel(ipar,1)+(tunnel(ipar,2)+tunnel(ipar,3)*300
131 kabba=exp(tunnel(ipar,1)+(tunnel(ipar,2)+tunnel(ipar,3)*300+
157 zpe1=zpef(ipar,1)*exp(-zpef(ipar,2)*preldeltae)+zpef(ipar,3)
160 kabba=exp(tunnel(ipar,1)+(tunnel(ipar,2)+tunnel(ipar,3)*300+
[all …]
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/scicos_blocks/macros/IntegerOp/ |
| H A D | CONVERT.sci | 67 model.ipar=1;
72 model.ipar=2;
74 model.ipar=3;
76 model.ipar=4;
78 model.ipar=5;
80 model.ipar=6;
82 model.ipar=7;
86 model.ipar=8;
88 model.ipar=9;
92 model.ipar=1;
[all …]
|
| /dports/math/trlan/trlan-201009/SRC/ |
| H A D | trlan77.f90 | 64 Call trl_init_info(trlinfo, nrow, ipar(5), ipar(2), ipar(3), &
65 & wrk(1), ipar(6), ipar(7), ipar(8))
66 Call trl_set_iguess(trlinfo, ipar(4), ipar(11))
67 If (ipar(9) .Gt. 0) Then
68 Call trl_set_debug(trlinfo, ipar(9), ipar(10))
71 trlinfo%cpio = ipar(13)
75 ipar(1) = trlinfo%stat
76 ipar(4) = trlinfo%nec
92 If (ipar(4).Gt.0) Then
93 j = ipar(4)
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fhutiter/src/ |
| H A D | huti_tfqmr.F90 | 168 call pcondrsubr( D, X, ipar )
169 call matvecsubr( D, R, ipar )
171 call pcondlsubr( R, D, ipar )
174 call pcondrsubr( V, Y, ipar )
175 call matvecsubr( V, D, ipar )
176 call pcondlsubr( V, D, ipar )
526 call pcondrsubr( D, X, ipar )
527 call matvecsubr( D, R, ipar )
529 call pcondlsubr( R, D, ipar )
532 call pcondrsubr( V, Y, ipar )
[all …]
|
| H A D | huti_bicgstab_2.F90 | 155 call pcondrsubr( U, X, ipar )
156 call matvecsubr( U, R, ipar )
158 call pcondlsubr( R, U, ipar )
186 call pcondrsubr( V, U, ipar )
193 call pcondrsubr( S, R, ipar )
213 call pcondrsubr( W, V, ipar )
222 call pcondrsubr( T, S, ipar )
405 call pcondrsubr( U, X, ipar )
406 call matvecsubr( U, R, ipar )
408 call pcondlsubr( R, U, ipar )
[all …]
|
| H A D | huti_fdefs.h | 109 #define HUTI_NDIM ipar(3)
110 #define HUTI_WRKDIM ipar(4)
111 #define HUTI_DBUGLVL ipar(5)
117 #define HUTI_MAXIT ipar(10)
118 #define HUTI_MINIT ipar(11)
119 #define HUTI_STOPC ipar(12)
120 #define HUTI_PCOND ipar(13)
125 #define HUTI_IDRS_S ipar(18)
129 #define HUTI_PROCS ipar(21)
139 #define HUTI_INFO ipar(30)
[all …]
|
| H A D | huti_interfaces.F90 | 46 SUBROUTINE mv_iface_s(x, r, ipar)
49 INTEGER, DIMENSION(*) :: ipar local
52 SUBROUTINE pc_iface_s(p, b, ipar)
55 INTEGER, DIMENSION(*) :: ipar local
75 INTEGER, DIMENSION(*) :: ipar local
83 INTEGER, DIMENSION(*) :: ipar local
89 INTEGER, DIMENSION(*) :: ipar local
109 INTEGER, DIMENSION(*) :: ipar local
117 INTEGER, DIMENSION(*) :: ipar local
123 INTEGER, DIMENSION(*) :: ipar local
[all …]
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
| H A D | exx_cg.f90 | 676 if (ipar(1).le.0) ipar(10) = 0
688 ipar(9) = ipar(8) + n
696 10 ipar(7) = ipar(7) + 1
746 ipar(9) = ipar(8) + n
756 ipar(8) = ipar(9)
770 ipar(8) = ipar(9)
778 60 ipar(7) = ipar(7) + 1
821 if (ipar(1).lt.0) ipar(12) = ipar(1)
824 ipar(9) = ipar(8) - n
853 if (ipar(6).gt.0 .and. ipar(7).ge.ipar(6)) then
[all …]
|
| /dports/math/trlan/trlan-201009/examples/SUN/ |
| H A D | simplec.c | 42 int i, lwrk, nrow, mev, ipar[32]; in main() local
54 ipar[0] = 0; in main()
55 ipar[1] = LOHI; in main()
56 ipar[2] = NED; in main()
57 ipar[3] = 0; /* nec = 0 */ in main()
58 ipar[4] = MAXLAN; in main()
61 ipar[7] = 0; /* MPI_COMM */ in main()
62 ipar[8] = -15; /* verboseness */ in main()
83 ipar[4], ipar[5], ipar[2], ipar[3]); in main()
85 ipar[24], ipar[26], ipar[25], ipar[23]); in main()
[all …]
|
| /dports/math/trlan/trlan-201009/examples/psp/ |
| H A D | shbpsp.f | 112 ipar(1) = 0
113 ipar(2) = lohi
114 ipar(3) = ned
116 ipar(5) = maxlan
118 ipar(7) = maxmatvec
149 if (ipar(1).ne.0) print *, 'TRLAN77 exist flag = ', ipar(1)
153 print 100, ipar(5), ipar(6), '-', ipar(3), ipar(4)
155 print 100, ipar(5), ipar(6), '+', ipar(3), ipar(4)
157 print 100, ipar(5), ipar(6), '0', ipar(3), ipar(4)
159 print 200, ipar(25), ipar(27), ipar(26), ipar(24)
[all …]
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/scicos_blocks/src/fortran/ |
| H A D | readf.f | 48 n=ipar(4)
71 n=ipar(4)
83 N=ipar(4)
109 N=ipar(4)
122 lfil=ipar(1)
127 lfil=ipar(1)
146 ievt=ipar(3)
147 N=ipar(4)
150 imask=5+ipar(1)+ipar(2)
170 if (fmttyp(ipar(5+ipar(1)),ipar(2)).ne.1) GOTO 100
[all …]
|
| H A D | intrp2.f | 36 do 100 i=2,ipar(1)
39 i=ipar(1)
40 200 do 300 j=2,ipar(2)
41 if (u2.le.rpar(j+ipar(1))) goto 400
43 j=ipar(2)
45 vy1=rpar(ipar(1)+j-1)
46 vy2=rpar(ipar(1)+j)
47 vz1=rpar(ipar(1)+ipar(2)+(i-2)*ipar(2)+j-1)
48 vz4=rpar(ipar(1)+ipar(2)+(i-2)*ipar(2)+j)
49 vz2=rpar(ipar(1)+ipar(2)+(i-1)*ipar(2)+j-1)
[all …]
|
| H A D | writef.f | 44 N=ipar(4)
58 jj=fmttyp(ipar(5+ipar(1)),ipar(2))
59 if (fmttyp(ipar(5+ipar(1)),ipar(2)).eq.0) GOTO 100
60 if (ipar(2).gt.0) then
62 call cvstr(ipar(2),ipar(5+ipar(1)),buf,1)
76 if (fmttyp(ipar(5+ipar(1)),ipar(2)).le.0) GOTO 110
77 lfil=ipar(1)
79 lfmt=ipar(2)
102 lfmt=ipar(2)
105 call cvstr(lfmt,ipar(5+ipar(1)),buf,1)
[all …]
|
| /dports/databases/freetds-devel/freetds-dev.1.3.7/src/odbc/unittests/ |
| H A D | rpc.c | 55 int ipar=0; in Test() local
87 for( ipar=0; ipar < TDS_VECTOR_SIZE(args); ipar++ ) { in Test()
90 args[ipar].ParameterValuePtr = (SQLPOINTER) ODBC_GET(args[ipar].BufferLength); in Test()
92 memset(args[ipar].ParameterValuePtr, 0, args[ipar].BufferLength); in Test()
93 memset(args[ipar].ParameterValuePtr, 'a', args[ipar].BufferLength - 1); in Test()
95 CHKBindParameter ( 1+ipar in Test()
97 , args[ipar].ValueType in Test()
99 , args[ipar].ColumnSize in Test()
102 , args[ipar].BufferLength in Test()
103 , &args[ipar].ind in Test()
[all …]
|
| /dports/databases/freetds/freetds-1.3.4/src/odbc/unittests/ |
| H A D | rpc.c | 55 int ipar=0; in Test() local
87 for( ipar=0; ipar < TDS_VECTOR_SIZE(args); ipar++ ) { in Test()
90 args[ipar].ParameterValuePtr = (SQLPOINTER) ODBC_GET(args[ipar].BufferLength); in Test()
92 memset(args[ipar].ParameterValuePtr, 0, args[ipar].BufferLength); in Test()
93 memset(args[ipar].ParameterValuePtr, 'a', args[ipar].BufferLength - 1); in Test()
95 CHKBindParameter ( 1+ipar in Test()
97 , args[ipar].ValueType in Test()
99 , args[ipar].ColumnSize in Test()
102 , args[ipar].BufferLength in Test()
103 , &args[ipar].ind in Test()
[all …]
|
| /dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/dbapi/driver/ftds100/freetds/odbc/unittests/ |
| H A D | rpc.c | 56 int ipar=0; in Test() local
88 for( ipar=0; ipar < sizeof(args)/sizeof(args[0]); ipar++ ) { in Test()
91 args[ipar].ParameterValuePtr = (SQLPOINTER) ODBC_GET(args[ipar].BufferLength); in Test()
93 memset(args[ipar].ParameterValuePtr, 0, args[ipar].BufferLength); in Test()
94 memset(args[ipar].ParameterValuePtr, 'a', args[ipar].BufferLength - 1); in Test()
96 CHKBindParameter ( 1+ipar in Test()
98 , args[ipar].ValueType in Test()
100 , args[ipar].ColumnSize in Test()
103 , args[ipar].BufferLength in Test()
104 , &args[ipar].ind in Test()
[all …]
|
| /dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/dbapi/driver/ftds95/freetds/odbc/unittests/ |
| H A D | rpc.c | 59 int ipar=0; in Test() local
91 for( ipar=0; ipar < sizeof(args)/sizeof(args[0]); ipar++ ) { in Test()
94 args[ipar].ParameterValuePtr = (SQLPOINTER) ODBC_GET(args[ipar].BufferLength); in Test()
96 memset(args[ipar].ParameterValuePtr, 0, args[ipar].BufferLength); in Test()
97 memset(args[ipar].ParameterValuePtr, 'a', args[ipar].BufferLength - 1); in Test()
99 CHKBindParameter ( 1+ipar in Test()
101 , args[ipar].ValueType in Test()
103 , args[ipar].ColumnSize in Test()
106 , args[ipar].BufferLength in Test()
107 , &args[ipar].ind in Test()
[all …]
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/scicos_blocks/src/c/ |
| H A D | readc.c | 65 --ipar; in readc()
69 mask = ipar + 11 + ipar[1] - ipar[5]; in readc()
78 n = ipar[6]; in readc()
79 ievt = ipar[5]; in readc()
96 m = ipar[6] * ipar[7]; in readc()
138 ievt = ipar[5]; in readc()
139 n = ipar[6]; in readc()
178 if (ipar[9] > 1) in readc()
190 offset = (ipar[9] - 1) * ipar[7] * worldsize(type); in readc()
202 m = ipar[6] * ipar[7]; in readc()
[all …]
|
| H A D | time_delay.c | 53 pw[block->ipar[0]*j] = block->rpar[1]; in time_delay()
56 for (i = 1; i < block->ipar[0]; i++) in time_delay()
61 pw[i + block->ipar[0]*j] = block->rpar[1]; in time_delay()
93 if (t > pw[(block->ipar[0] + *iw - 1) % block->ipar[0]]) in time_delay()
101 *iw = (*iw + 1) % block->ipar[0]; in time_delay()
108 … pw[(block->ipar[0] + *iw - 1) % block->ipar[0] + block->ipar[0]*j] = block->inptr[0][j - 1]; in time_delay()
110 pw[(block->ipar[0] + *iw - 1) % block->ipar[0]] = t; in time_delay()
124 j = block->ipar[0] - 1; in time_delay()
129 if (td < pw[(k + *iw) % block->ipar[0]]) in time_delay()
144 i = (i + *iw) % block->ipar[0]; in time_delay()
[all …]
|
| /dports/science/octopus/octopus-10.5/src/math/ |
| H A D | sparskit_inc.F90 | 84 call cg(sk%size, sk%sk_b, sk%sk_y, sk%ipar, sk%fpar, sk%sk_work)
88 call bcg(sk%size, sk%sk_b, sk%sk_y, sk%ipar, sk%fpar, sk%sk_work)
112 select case(sk%ipar(1))
115 call op(sk%sk_work(sk%ipar(8):sk%ipar(8)+sk%size),sk%sk_work(sk%ipar(9):sk%ipar(9)+sk%size))
118 …call op(sk%sk_work(sk%ipar(8):sk%ipar(8)+sk%size/2),sk%sk_work(sk%ipar(8)+sk%size/2:sk%ipar(8)+sk%…
119 … sk%sk_work(sk%ipar(9):sk%ipar(9)+sk%size/2),sk%sk_work(sk%ipar(9)+sk%size/2:sk%ipar(9)+sk%size))
124 call opt(sk%sk_work(sk%ipar(8):sk%ipar(8)+sk%size),sk%sk_work(sk%ipar(9):sk%ipar(9)+sk%size))
127 …call opt(sk%sk_work(sk%ipar(8):sk%ipar(8)+sk%size/2),sk%sk_work(sk%ipar(8)+sk%size/2:sk%ipar(8)+sk…
128 … sk%sk_work(sk%ipar(9):sk%ipar(9)+sk%size/2),sk%sk_work(sk%ipar(9)+sk%size/2:sk%ipar(9)+sk%size))
182 sk%ipar(1) = 0
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fhutiter/include/ |
| H A D | huti_fdefs.h | 109 #define HUTI_NDIM ipar(3)
110 #define HUTI_WRKDIM ipar(4)
111 #define HUTI_DBUGLVL ipar(5)
117 #define HUTI_MAXIT ipar(10)
118 #define HUTI_MINIT ipar(11)
119 #define HUTI_STOPC ipar(12)
120 #define HUTI_PCOND ipar(13)
125 #define HUTI_IDRS_S ipar(18)
129 #define HUTI_PROCS ipar(21)
139 #define HUTI_INFO ipar(30)
[all …]
|
| /dports/math/trlan/trlan-201009/examples/T3E/ |
| H A D | simplec.c | 24 int i, lwrk, nrow, mev, ipar[32]; in main() local
32 ipar[0] = 0; in main()
33 ipar[1] = LOHI; in main()
34 ipar[2] = NED; in main()
35 ipar[3] = 0; /* nec = 0 */ in main()
36 ipar[4] = MAXLAN; in main()
39 ipar[7] = (int)MPI_COMM_WORLD; in main()
56 tt = ((double) ipar[28]) * 1e-3; in main()
57 tp = ((double) ipar[29]) * 1e-3; in main()
58 to = ((double) ipar[30]) * 1e-3; in main()
[all …]
|
| /dports/science/octopus/octopus-10.5/src/opt_control/ |
| H A D | controlfunction.F90 | 548 integer :: ipar
651 integer :: ipar local
659 call laser_get_f(ep%lasers(ipar), cp%f(ipar))
742 integer :: ipar local
837 res = res + tdf_diff(pp%f(ipar), qq%f(ipar))
857 …call tdf_set_numerical(cp%f(ipar), iter, tdf(cp%f(ipar), iter) / tdf(cf_common%td_penalty(ipar), i…
883 call laser_set_f(ep%lasers(ipar), par%f(ipar))
979 func(iter, ipar) = tdf(par%f(ipar), time)
1237 call tdf_copy(cp_out%f(ipar), cp_in%f(ipar))
1292 val = dd(ipar) / ( tdf(cf_common%td_penalty(ipar), iter) - M_TWO * aimag(dq(ipar)) )
[all …]
|