/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | aba2tex.F | 350 IF (KLAST .GT. LWORK) CALL STOPIT('TWOEXP','PAOVEC',KLAST,LWORK) 354 KLAST = KJORBS 381 CALL PSORG(WORK(KLAST),WORK(KLAST),LWRK,WORK(KNCONT),IPRSOR, 395 KHESEE = KLAST 414 KDMAT = KLAST 439 IF(KLAST.GT.LWORK) CALL STOPIT('TWOEXP','GETDMT',KLAST,LWORK) 479 KNSTAT = KLAST 501 KFCTMP = KLAST 534 KCCFBT = KLAST 672 KLAST = KDASQ + N2BASX [all …]
|
H A D | abafmm.F | 161 KLAST = KAOEX + NBAST 162 IF (KLAST .GT. LWORK) CALL STOPIT('FMMDRV',' ',KLAST,LWORK) 163 LWRK = LWORK - KLAST + 1 224 KLAST = KDISM + 8*NNBASX 225 IF (KLAST .GT. LWORK) CALL STOPIT('SPHAVE',' ',KLAST,LWORK) 262 IF (KLAST .GT. LWORK) CALL STOPIT('FMMDR1','2EL',KLAST,LWORK) 381 KLAST = KFOCK + NNBASX 382 IF (KLAST .GT. LWORK) CALL STOPIT('FMMDNS',' ',KLAST,LWORK) 422 IF (KLAST .GT. LWORK) CALL STOPIT('FMMINT',' ',KLAST,LWORK) 640 KLAST = KIIN4 + 4*LBUF [all …]
|
H A D | abaort.F | 106 KLAST = KTEST + 1 110 KHESFS = KLAST 111 KLAST = KHESFS + MXCOOR*MXCOOR 115 LWRK = LWORK - KLAST + 1 129 CALL DZERO(WORK(KLAST),NVARMA) 150 CALL DZERO(WORK(KLAST),NVARMA) 171 & WORK(KLAST),LWRK) 184 KY = KLAST 188 KLAST = KSCTRA + 9*NUCDEP*NUCDEP 189 KGLM = KLAST [all …]
|
H A D | abaqmmm.F | 87 KLAST = KMAT + 3*N2BASX 88 LWRK = LWORK - KLAST + 1 152 KLAST = KMAT + 9*N2BASX 153 LWRK = LWORK - KLAST + 1 589 KLAST = KTMP + 6 646 KLAST = KTMP + 18 1090 KMAT = KLAST 1948 KLAST = JEXPVAL + 6 2165 KLAST = JEXPVAL + 6 2393 KLAST = JEXPVAL + 6 [all …]
|
H A D | her2sym.F | 111 KLAST = NCCINT 112 IF (KLAST .GT. LWORK) CALL STOPIT('DRSYM2',' ',KLAST,LWORK) 113 LWTOT = LWTOT + KLAST 115 LWTOT = LWTOT - KLAST 116 MWDRSY = MAX(MWDRSY,KLAST) 243 KLAST = 2*NCCINT 244 IF (KLAST .GT. LWORK) CALL STOPIT('MGSYM2',' ',KLAST,LWORK) 245 LWTOT = LWTOT + KLAST 247 LWTOT = LWTOT - KLAST 248 MWDRSY = MAX(MWDRSY,KLAST)
|
H A D | abaaat.F | 181 IF (KLAST .GT. LWORK) CALL STOPIT('AATDRV',' ',KLAST,LWORK) 182 LWRK = LWORK - KLAST + 1 280 KLAST = KDTOT + N2ORBX 281 IF (KLAST .GT. LWORK) CALL STOPIT('AATELC',' ',KLAST,LWORK) 282 LWRK = LWORK - KLAST + 1 457 KLAST = KDV + NNASHX 458 IF (KLAST .GT. LWORK) CALL STOPIT('MKDENS',' ',LWORK,KLAST) 579 KLAST = 1 760 IF (KLAST .GT. LWORK) CALL STOPIT('AATNOD',' ',LWORK,KLAST) 983 LWORK1 = LWORK - KLAST [all …]
|
H A D | abaqm3.F | 369 KLAST = JVEC2 + 3*N2BASX 455 KLAST = KVEC2 + 3*N2BASX 483 KMAT = KLAST 484 KLAST = KMAT + 3*N2BASX 485 LWRK1 = LWRK - KLAST + 1 569 KLAST = JVEC2 + 3*N2BASX 674 KLAST = KENSAZ + NCOMS 710 KMAT = KLAST 711 KLAST = KMAT + 9*N2BASX 712 LWRK1 = LWRK - KLAST + 1 [all …]
|
H A D | abanvib.F | 317 LWRK = LWORK - KLAST 336 KLAST = 1 338 KSPNSP = KLAST 343 LWRK1 = LWORK - KLAST 398 LWRK = LWORK - KLAST 429 KLAST = KAMASS + NCOOR 430 LWRK = LWORK - KLAST 457 KLAST = KICRIP + 2*NCOOR 458 LWRK = LWORK - KLAST 1046 LWRK1 = LWORK - KLAST + 1 [all …]
|
H A D | her1drv.F | 262 KLAST = KHESKE 272 KLAST = KTLMD 273 KHESKE = KLAST 278 KHSOLT = KLAST 279 KHSOLN = KLAST 282 IF (KLAST .GT. LWORK) CALL STOPIT('ONEDRV',' ',KLAST,LWORK) 487 IF (KLAST.GT.LWORK) CALL STOPIT('ONEDR1','DSOFSO',KLAST,LWORK) 523 KLAST = 1 548 KLAST = KFREE 1092 IF (KLAST .GT. LWORK) CALL STOPIT('DSOFSO',' ',KLAST,LWORK) [all …]
|
H A D | herdirect.F | 232 IF (KLAST .GT. LWORK) CALL STOPIT('GETDIS','PAOVEC',KLAST,LWORK) 236 KLAST = KJORBS 237 LWRK = LWORK - KLAST + 1 299 KLAST = KDASO + NNBAST 300 IF (KLAST .GT. LWORK) CALL STOPIT('FCKTES',' ',KLAST,LWORK) 309 KLAST = KCMO 310 LWRK = LWORK - KLAST + 1 325 KLAST = KDASO + NNBAST 326 IF (KLAST .GT. LWORK) CALL STOPIT('FCKTES',' ',KLAST,LWORK) 334 KLAST = KCMO [all …]
|
H A D | abarlx.F | 239 KLAST = KTEST + 1 242 KWRKSD = KLAST 245 KLAST = KWRKSF + 9*NUCDEP*NUCDEP 246 LWRK1 = LWORK - KLAST + 1 249 KHESRL = KLAST 260 KLAST = KHESRL + MXCOOR*MXCOOR 267 LWRK1 = LWORK - KLAST + 1 268 IF (KLAST .GT. LWORK) CALL STOPIT('ADDREL',' ',KLAST,LWORK) 332 KREL = KLAST 468 KCSTRA = KLAST [all …]
|
H A D | abapcm.F | 35 KLAST = KEXPVL + NCOMP*NTS 36 LWRK = LWORK - KLAST + 1 48 & 1,WORK(KLAST),LWRK) 120 KLAST = KINVMT + NTSIRR*NTS 121 LWRK = LWORK - KLAST + 1 166 CALL GET1IN(WORK(KINT),'PCMB2SL',NREAD,WORK(KLAST),LWRK,
|
/dports/misc/libemos/libemos-4.5.9-Source/interpolation/ |
H A D | chequal.F | 11 LOGICAL FUNCTION CHEQUAL( HIN, KFIRST, KLAST, HCOMP) 58 INTEGER KFIRST, KLAST, LOOP, ITEMP1, ITEMP2, ITEMPA 66 IF( (KFIRST.GT.KLAST) 67 . .OR. (LEN(HIN) .LT.KLAST) 68 . .OR. (LEN(HCOMP).LT.KLAST) ) RETURN 70 DO LOOP = KFIRST, KLAST
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | herdirect_cc.F | 94 KLAST = KKORBS + (MXSHEL*MXAOVC - 1)/IRAT + 1 95 IF (KLAST .GT. LWORK) CALL STOPIT('HERDI1','PAOVEC',KLAST,LWORK) 96 LWRK = LWORK - KLAST + 1 164 KLAST = KKORBS + (MXSHEL*MXAOVC - 1)/IRAT + 1 165 IF (KLAST .GT. LWORK) CALL STOPIT('HERDI2','PAOVEC',KLAST,LWORK) 166 LWRK = LWORK - KLAST + 1 208 CALL TWOINT(WORK(KLAST),LWRK,HESSEE,FMAT,DMAT,NDMAT,IREPDM, 283 KLAST = KKORBS + (MXSHEL*MXAOVC - 1)/IRAT + 1 284 IF (KLAST .GT. LWORK) CALL STOPIT('NERDI2','PAOVEC',KLAST,LWORK) 285 LWRK = LWORK - KLAST + 1 [all …]
|
/dports/math/R-cran-lpSolve/lpSolve/src/ |
H A D | lusol8a.h | 52 int LPRINT, NRANK, LENL, LENU, LROW, NRANK0, KREP, KLAST, IW, L1, J1, JSING; in LU8RPC() local 90 KLAST = 0; in LU8RPC() 105 LU7ADD(LUSOL, JREP,V,LENL,&LENU,&LROW,NRANK,INFORM,&KLAST,VNORM); in LU8RPC() 141 KLAST = NRANK; in LU8RPC() 153 KLAST = NRANK; in LU8RPC() 175 if(KREP<=KLAST) { in LU8RPC() 180 LU7CYC(LUSOL, KREP,KLAST,LUSOL->ip); in LU8RPC() 181 LU7CYC(LUSOL, KREP,KLAST,LUSOL->iq); in LU8RPC() 182 LU7FOR(LUSOL, KREP,KLAST,&LENL,&LENU,&LROW,INFORM,DIAG); in LU8RPC() 185 KREP = KLAST; in LU8RPC()
|
H A D | lusol6u.h | 100 int LEN, I, K, L, L1, NRANK, NRANK1, KLAST; in LU6U0_v() local 115 for(KLAST = NRANK; KLAST >= 1; KLAST--) { in LU6U0_v() 116 I = LUSOL->ip[KLAST]; in LU6U0_v() 122 for(K = KLAST+1, jptr = LUSOL->iq+K; K <= L; K++, jptr++) in LU6U0_v() 125 for(K = KLAST+1; K <= L; K++) { in LU6U0_v()
|
H A D | lusol7a.h | 32 *KLAST = 0; in LU7ADD() 37 *KLAST = K; in LU7ADD() 110 if(KFIRST<KLAST) { in LU7CYC() 115 K = KLAST-KFIRST; in LU7CYC() 117 IX[KLAST] = IFIRST; in LU7CYC() 132 IX[KLAST] = IFIRST; in LU7CYC() 282 IW = LUSOL->ip[KLAST]; in LU7FOR() 289 if(KBEGIN>=KLAST) in LU7FOR() 313 KSTOP = MIN(KLAST,LUSOL->n); in LU7FOR() 321 if(K==KLAST) in LU7FOR() [all …]
|
/dports/math/lp_solve/lp_solve_5.5/bfp/bfp_LUSOL/LUSOL/ |
H A D | lusol8a.c | 52 int LPRINT, NRANK, LENL, LENU, LROW, NRANK0, KREP, KLAST, IW, L1, J1, JSING; in LU8RPC() local 90 KLAST = 0; in LU8RPC() 105 LU7ADD(LUSOL, JREP,V,LENL,&LENU,&LROW,NRANK,INFORM,&KLAST,VNORM); in LU8RPC() 141 KLAST = NRANK; in LU8RPC() 153 KLAST = NRANK; in LU8RPC() 175 if(KREP<=KLAST) { in LU8RPC() 180 LU7CYC(LUSOL, KREP,KLAST,LUSOL->ip); in LU8RPC() 181 LU7CYC(LUSOL, KREP,KLAST,LUSOL->iq); in LU8RPC() 182 LU7FOR(LUSOL, KREP,KLAST,&LENL,&LENU,&LROW,INFORM,DIAG); in LU8RPC() 185 KREP = KLAST; in LU8RPC()
|
H A D | lusol6u.c | 100 int LEN, I, K, L, L1, NRANK, NRANK1, KLAST; in LU6U0_v() local 115 for(KLAST = NRANK; KLAST >= 1; KLAST--) { in LU6U0_v() 116 I = LUSOL->ip[KLAST]; in LU6U0_v() 122 for(K = KLAST+1, jptr = LUSOL->iq+K; K <= L; K++, jptr++) in LU6U0_v() 125 for(K = KLAST+1; K <= L; K++) { in LU6U0_v()
|
H A D | lusol7a.c | 32 *KLAST = 0; in LU7ADD() 37 *KLAST = K; in LU7ADD() 110 if(KFIRST<KLAST) { in LU7CYC() 115 K = KLAST-KFIRST; in LU7CYC() 117 IX[KLAST] = IFIRST; in LU7CYC() 132 IX[KLAST] = IFIRST; in LU7CYC() 282 IW = LUSOL->ip[KLAST]; in LU7FOR() 289 if(KBEGIN>=KLAST) in LU7FOR() 313 KSTOP = MIN(KLAST,LUSOL->n); in LU7FOR() 321 if(K==KLAST) in LU7FOR() [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/dft/ |
H A D | dft_mos.F | 39 KLAST = KCMO2 + 2*N2ORBX 40 LWRK = LFREE - KLAST +1 41 IF(KLAST.GT.LFREE) CALL QUIT('Insufficient memory in DFTMOMO') 43 CALL DFTDNS(WORK(KDMAT),WORK(KLAST),LWRK,0) 49 CALL DFTINT(WORK(KDMAT),1,0,.FALSE.,WORK(KLAST),LWRK, 51 CALL DFT_MOMO_COLLECT(WORK(KCMO2),N2ORBX,WORK(KLAST),LWRK) 203 KLAST = KCMO2 + 2*N2ORBX 204 LWRK = LWORK - KLAST +1 205 IF(KLAST.GT.LWORK) CALL QUIT('NOMEM IN DFT_MOMO_SLAVE') 212 CALL DFTINT(WORK(KDMAT),1,0,.FALSE.,WORK(KLAST),LWRK, [all …]
|
H A D | dft_mag.F | 50 KLAST = KFMAT + 3*N2BASX 51 LWRK = LWORK - KLAST + 1 53 CALL DFTDNS(WORK(KDMAT),WORK(KLAST),LWRK,0) 393 KLAST = KSUSDF + 9 394 LWRK = LWORK - KLAST + 1 395 IF (KLAST .GT. LWORK) CALL STOPIT('DFTBHES',' ',KLAST,LWORK) 437 KLAST = KSUSDF + 9 623 KLAST = KFMAT + N2BASX*3 624 LWRK = LWORK - KLAST + 1 688 KLAST = KSUSDF + 9 [all …]
|
H A D | dft_hes.F | 53 KLAST = KDFTHS + MXCOOR*MXCOOR 60 LWRK = LWORK - KLAST + 1 61 IF (KLAST .GT. LWORK) CALL STOPIT('DFTMOLHES',' ',KLAST,LWORK) 94 KCSTRA = KLAST 566 KLAST = KDFTFD + 3*N2BASX 567 IF (KLAST .GT. LWORK) CALL STOPIT('DFTHED',' ',KLAST,LWORK) 568 LWRK = LWORK - KLAST + 1 643 KLAST = KDFTFD + 3*N2BASX 1335 IF (KLAST .GT. LWORK) CALL 1429 KLAST = KDFTFD + 3*N2BASX [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/rsp/ |
H A D | rspqmmm.F | 1134 KLAST = KMAT + 3*NNBASX 1135 LWRK2 = LWRK - KLAST + 1 1443 KLAST = KMAT + 3*NNBASX 1444 LWRK2 = LWRK - KLAST + 1 1698 LWRK2 = LWRK - KLAST + 1 2942 LWRK2 = LWRK - KLAST + 1 3145 KLAST = KRXYO + N2ORBX 3305 KLAST = KEF2 + 3*NNZAL 3513 KLAST = KTRES + N2ORBX 3693 KLAST = KEF3 + 3*NNZAL [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/eri/ |
H A D | eri2her.F | 36 KLAST = KNDADR + (NPPX - 1)/IRAT + 1 37 IF (KLAST .GT. LWORK) CALL STOPIT('ERIGAM',' ',KLAST,LWORK) 38 LWRK = LWORK - KLAST + 1 42 & WORK(KNDADR),WORK(KLAST),LWRK,IPRINT) 45 & WORK(KNDADR),WORK(KLAST),LWRK,IPRINT) 117 KLAST = KREXPW + NPPX 118 IF (KLAST .GT. LWORK) CALL STOPIT('ERIGA1',' ',KLAST,LWORK) 213 KLAST = KREXPW + NPPX 214 IF (KLAST .GT. LWORK) CALL STOPIT('ERIGA1',' ',KLAST,LWORK) 363 KLAST = KHRWRK + NTUV*NPPX [all …]
|