/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
H A D | argos_diana_evalord.F | 20 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 D | argos_diana_equiord.F | 14 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 D | argos_diana_addorder.F | 29 + 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 D | argos_diana_evalord.F | 20 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 D | argos_diana_equiord.F | 14 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 D | argos_diana_addorder.F | 29 + 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 D | dqpsrt.f | 65 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 D | qpsrt.f | 70 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 D | dqpsrt.f | 65 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 D | aux_boys_vec.F90 | 113 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 D | aux_gfun_vec.F90 | 245 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 D | GenHeader.py | 83 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 D | dia_evaluate.F | 277 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 D | dia_getsel.F | 435 + 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 D | dia_evaluate.F | 277 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | rdmod.c | 52 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 D | gsort.h | 37 …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);
|