Home
last modified time | relevance | path

Searched refs:KLAST (Results 1 – 25 of 149) sorted by relevance

123456

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/
H A Daba2tex.F350 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 Dabafmm.F161 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 Dabaort.F106 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 Dabaqmmm.F87 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 Dher2sym.F111 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 Dabaaat.F181 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 Dabaqm3.F369 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 Dabanvib.F317 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 Dher1drv.F262 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 Dherdirect.F232 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 Dabarlx.F239 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 Dabapcm.F35 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 Dchequal.F11 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 Dherdirect_cc.F94 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 Dlusol8a.h52 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 Dlusol6u.h100 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 Dlusol7a.h32 *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 Dlusol8a.c52 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 Dlusol6u.c100 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 Dlusol7a.c32 *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 Ddft_mos.F39 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 Ddft_mag.F50 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 Ddft_hes.F53 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 Drspqmmm.F1134 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 Deri2her.F36 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 …]

123456