Home
last modified time | relevance | path

Searched refs:iord (Results 1 – 25 of 318) sorted by relevance

12345678910>>...13

/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/
H A Dargos_diana_evalord.F20 ndxo=iord(i,1,3)
21 ndordr=iord(i,3,3)
24 d=(xtrj(iord(i,j,1),1,k)-xtrj(iord(i,1,1),1,k))**2+
25 +(xtrj(iord(i,j,1),2,k)-xtrj(iord(i,1,1),2,k))**2+
26 +(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2
27 s=3.0d0*(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2/d-1.0d0
44 k=iord(i,1,3)
56 k=iord(i,1,3)
67 inum=2*iord(i,3,3)*iord(i,2,3)*nfrtot
68 k=iord(i,1,3)
[all …]
H A Dargos_diana_equiord.F14 if(imol(iord(nord,i,1)).ne.imol(iord(nord,1,1))) return
19 if(iequi(iord(nord,i,1)).eq.0) goto 9
23 iord(nord,1,3)=idordr
24 iord(nord,3,3)=ndordr
28 iord(nord,i,1)=iequi(iord(nord-1,i,1))
29 iord(nord,i,2)=0
H A Dargos_diana_addorder.F29 + iord(nord,i,1),iord(nord,i,2))
31 iord(nord,1,3)=idordr
32 iord(nord,2,3)=1
33 iord(nord,3,3)=ndordr
43 iord(i,2,3)=nord-nordp
47 call ga_brdcst(mag_d09,iord,12*mord*ma_sizeof(mt_int,1,mt_byte),0)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/
H A Dargos_diana_evalord.F20 ndxo=iord(i,1,3)
21 ndordr=iord(i,3,3)
24 d=(xtrj(iord(i,j,1),1,k)-xtrj(iord(i,1,1),1,k))**2+
25 +(xtrj(iord(i,j,1),2,k)-xtrj(iord(i,1,1),2,k))**2+
26 +(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2
27 s=3.0d0*(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2/d-1.0d0
44 k=iord(i,1,3)
56 k=iord(i,1,3)
67 inum=2*iord(i,3,3)*iord(i,2,3)*nfrtot
68 k=iord(i,1,3)
[all …]
H A Dargos_diana_equiord.F14 if(imol(iord(nord,i,1)).ne.imol(iord(nord,1,1))) return
19 if(iequi(iord(nord,i,1)).eq.0) goto 9
23 iord(nord,1,3)=idordr
24 iord(nord,3,3)=ndordr
28 iord(nord,i,1)=iequi(iord(nord-1,i,1))
29 iord(nord,i,2)=0
H A Dargos_diana_addorder.F29 + iord(nord,i,1),iord(nord,i,2))
31 iord(nord,1,3)=idordr
32 iord(nord,2,3)=1
33 iord(nord,3,3)=ndordr
43 iord(i,2,3)=nord-nordp
47 call ga_brdcst(mag_d09,iord,12*mord*ma_sizeof(mt_int,1,mt_byte),0)
/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/quadpack/
H A Ddqpsrt.f65 iord(1) = 1
66 iord(2) = 2
100 isucc = iord(i)
103 iord(i-1) = isucc
105 50 iord(jbnd) = maxerr
106 iord(jupbn) = last
111 60 iord(i-1) = maxerr
114 isucc = iord(k)
117 iord(k+1) = isucc
120 iord(i) = last
[all …]
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/
H A Dqpsrt.f70 iord(1) = 1
71 iord(2) = 2
107 isucc = iord(i)
110 iord(i-1) = isucc
112 50 iord(jbnd) = maxerr
113 iord(jupbn) = last
118 60 iord(i-1) = maxerr
121 isucc = iord(k)
124 iord(k+1) = isucc
127 iord(i) = last
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Ddqpsrt.f65 iord(1) = 1
66 iord(2) = 2
100 isucc = iord(i)
103 iord(i-1) = isucc
105 50 iord(jbnd) = maxerr
106 iord(jupbn) = last
111 60 iord(i-1) = maxerr
114 isucc = iord(k)
117 iord(k+1) = isucc
120 iord(i) = last
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/auxfun/
H A Daux_boys_vec.F90113 do iord = 1, NUM_TAYLOR_TERM
124 do iord = 1, NUM_TAYLOR_TERM
136 val_boys(iord) = (twice_arg*val_boys(iord+1)+curr_exp_arg)/div_down
176 do iord = 1, min_order_boys
177 val_low(iord) = half_iarg*val_low(iord-1)-curr_exp_arg
182 val_boys(iord) = half_iarg*val_boys(iord-1)-curr_exp_arg
193 do iord = 1, min_order_boys
194 val_low(iord) = half_iarg*val_low(iord-1)
199 val_boys(iord) = half_iarg*val_boys(iord-1)
311 val_boys(iord,iarg) = (twice_arg*val_boys(iord+1,iarg)+curr_exp_arg)/div_power
[all …]
H A Daux_gfun_vec.F90245 integer iord local
286 my_err = abs( (my_chks(iord)-my_refs(iord,iarg))/my_refs(iord,iarg) )
292 write(x_lupri,1020) iord,my_arg,my_chks(iord),my_refs(iord,iarg),log10(my_err)
321 my_err = abs( (my_chks(iord)-my_refs(iord,iarg))/my_refs(iord,iarg) )
327 write(x_lupri,1020) iord,my_arg,my_chks(iord),my_refs(iord,iarg),log10(my_err)
500 integer iord local
603 val_boys(iord) = my_i2arg*val_boys(iord-1)
629 integer iord local
805 val_gfun(iord+1) = my_i2arg - div_down*val_gfun(iord)
841 integer iord local
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/tools/
H A DGenHeader.py83 fl_header.write(fmt_per_line %tuple(val_boys[iarg][iord:iord+num_term]))
88 for iord in xrange(0,max_gen_order-left_order+1,num_term):
89 fl_header.write(fmt_per_line %tuple(val_boys[nsteps_tab][iord:iord+num_term]))
107 for iord in xrange(strt_order,end_order+1):
108 order_func = iord+0.5
114 for iord in xrange(strt_order,end_order+1):
115 order_func = iord+0.5
196 for iord in xrange(end_order-1,strt_order-1,-1):
198 val_boys[iarg][iord-strt_order] \
245 for iord in xrange(strt_order,end_order):
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/diana/
H A Ddia_evaluate.F277 ndxo=iord(i,1,3)
278 ndordr=iord(i,3,3)
281 d=(xtrj(iord(i,j,1),1,k)-xtrj(iord(i,1,1),1,k))**2+
282 +(xtrj(iord(i,j,1),2,k)-xtrj(iord(i,1,1),2,k))**2+
283 +(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2
284 s=3.0d0*(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2/d-1.0d0
301 k=iord(i,1,3)
313 k=iord(i,1,3)
324 inum=2*iord(i,3,3)*iord(i,2,3)*nfrtot
325 k=iord(i,1,3)
[all …]
H A Ddia_getsel.F435 + iord(nord,i,1),iord(nord,i,2))
437 iord(nord,1,3)=idordr
438 iord(nord,2,3)=1
439 iord(nord,3,3)=ndordr
449 iord(i,2,3)=nord-nordp
482 if(imol(iord(nord,i,1)).ne.imol(iord(nord,1,1))) return
487 if(iequi(iord(nord,i,1)).eq.0) goto 9
491 iord(nord,1,3)=idordr
492 iord(nord,3,3)=ndordr
496 iord(nord,i,1)=iequi(iord(nord-1,i,1))
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/diana/
H A Ddia_evaluate.F277 ndxo=iord(i,1,3)
278 ndordr=iord(i,3,3)
281 d=(xtrj(iord(i,j,1),1,k)-xtrj(iord(i,1,1),1,k))**2+
282 +(xtrj(iord(i,j,1),2,k)-xtrj(iord(i,1,1),2,k))**2+
283 +(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2
284 s=3.0d0*(xtrj(iord(i,j,1),3,k)-xtrj(iord(i,1,1),3,k))**2/d-1.0d0
301 k=iord(i,1,3)
313 k=iord(i,1,3)
324 inum=2*iord(i,3,3)*iord(i,2,3)*nfrtot
325 k=iord(i,1,3)
[all …]
/dports/devel/sunpromake/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/devel/smake/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/devel/sccs/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/devel/schilybase/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/net/rscsi/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg;
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user)
125 int ser, keep, iord, user;
[all …]
/dports/archivers/star/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/sysutils/cdrtools/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/editors/ved/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/sysutils/schilyutils/schily-2021-09-18/sccs/sccs/lib/comobj/src/
H A Drdmod.c52 int ser, iord, oldixmsg; local
82 iord = *p++;
83 if (iord == CTLCHAR) { /* "^A^Atext\n" -> "^Atext\n" */
88 } else if (iord == NONL) { /* "^ANtext\n" -> "text" */
99 if (iord != INS && iord != DEL && iord != END)
105 if (iord == END) {
109 addq(pkt, ser, iord == INS ? YES : NO, iord,
112 addq(pkt, ser, iord == INS ? NO : 0, iord,
123 void addq(pkt, ser, keep, iord, user) in addq() argument
125 int ser, keep, iord, user;
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/c/
H A Dgsort.h37 …IMPEXP void C2F(gsorts)(char **data, int *ind, int *iflag, int *m, int *n, char *type, char *iord);
38 …S_IMPEXP int C2F(gsortd)(double *xD, int *ind, int *iflag, int *m, int *n, char *type, char *iord);
39 …NS_IMPEXP int C2F(gsortint)(int *xI, int *ind, int *iflag, int *m, int *n, char *type, char *iord);
40 …int C2F(gsortuint)(unsigned int *xI, int *ind, int *iflag, int *m, int *n, char *type, char *iord);
41 …MPEXP int C2F(gsortshort)(short *xI, int *ind, int *iflag, int *m, int *n, char *type, char *iord);
42 …C2F(gsortushort)(unsigned short *xI, int *ind, int *iflag, int *m, int *n, char *type, char *iord);
43 …_IMPEXP int C2F(gsortchar)(char *xI, int *ind, int *iflag, int *m, int *n, char *type, char *iord);
44 …t C2F(gsortuchar)(unsigned char *xI, int *ind, int *iflag, int *m, int *n, char *type, char *iord);

12345678910>>...13