/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | micdv6o.F | 53 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 181 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 207 CALL SETVEC(APROJ,ZERO,NROOT*(NROOT+1)/2) 212 NVEC = NROOT 358 CALL ADD_ORTN_2SUBSPC(LU1,LU3,NROOT,NVEC+IADD-1-NROOT, 364 CALL ADD_ORTN_2SUBSPC(LU1,LU3,NROOT,NVEC+IADD-1-NROOT, 393 CALL GET_OVLAP_FOR_VECTORS(LU1,NROOT,LU1,NROOT,LU7, 494 & AVEC(1+(IVEC-1)*NROOT),NROOT) 510 CALL IWRTMA(IXJEP,1,NROOT,1,NROOT) 552 CALL WRTMAT(AVEC,NVEC,NROOT,NVEC,NROOT) [all …]
|
H A D | lucia_ccrsp.F | 440 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 486 MAXVEC = 2*NROOT 544 CALL WRTMAT(WORK(KAPROJ),NROOT,NROOT,NROOT,NROOT) 835 & AVEC(1+(IVEC-1)*NROOT),NROOT) 851 CALL IWRTMA(IXJEP,1,NROOT,1,NROOT) 863 DO INEW = 1, NROOT 884 CALL WRTMAT(AVEC,NVEC,NROOT,NVEC,NROOT) 985 CALL WRTMAT(WORK(KAPROJ),NROOT,NROOT,NROOT,NROOT) 994 & NVEC,NROOT,NVEC,NROOT,NROOT,NROOT,0) 1040 NVEC = NROOT [all …]
|
H A D | lucia3.F | 829 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 920 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 1171 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) 5413 CALL SETVEC(APROJ,ZERO,NROOT*(NROOT+1)/2) 5720 CALL IWRTMA(IXJEP,1,NROOT,1,NROOT) 5762 CALL WRTMAT(AVEC,NVEC,NROOT,NVEC,NROOT) 6240 CALL IWRTMA(ISUBSPCV2,1,NROOT,1,NROOT) 6496 CALL WRTMAT(DELTA,NVEC,NROOT,NVEC,NROOT) 7216 KFREE = KS + (2*NROOT)*MAX(2*NROOT,NVEC) 7219 KFREE = KX + (2*NROOT)*MAX(2*NROOT,NVEC) [all …]
|
H A D | lucia4.F | 2561 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 2582 & NROOT 2857 DO IROOT = 1, NROOT 3625 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 3709 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 3953 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) 3996 NVEC = NROOT 4120 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 4203 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 4447 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
H A D | micdv6o.F | 53 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 181 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 207 CALL SETVEC(APROJ,ZERO,NROOT*(NROOT+1)/2) 212 NVEC = NROOT 358 CALL ADD_ORTN_2SUBSPC(LU1,LU3,NROOT,NVEC+IADD-1-NROOT, 364 CALL ADD_ORTN_2SUBSPC(LU1,LU3,NROOT,NVEC+IADD-1-NROOT, 393 CALL GET_OVLAP_FOR_VECTORS(LU1,NROOT,LU1,NROOT,LU7, 494 & AVEC(1+(IVEC-1)*NROOT),NROOT) 510 CALL IWRTMA(IXJEP,1,NROOT,1,NROOT) 552 CALL WRTMAT(AVEC,NVEC,NROOT,NVEC,NROOT) [all …]
|
H A D | lucia_ccrsp.F | 440 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 486 MAXVEC = 2*NROOT 544 CALL WRTMAT(WORK(KAPROJ),NROOT,NROOT,NROOT,NROOT) 835 & AVEC(1+(IVEC-1)*NROOT),NROOT) 851 CALL IWRTMA(IXJEP,1,NROOT,1,NROOT) 863 DO INEW = 1, NROOT 884 CALL WRTMAT(AVEC,NVEC,NROOT,NVEC,NROOT) 985 CALL WRTMAT(WORK(KAPROJ),NROOT,NROOT,NROOT,NROOT) 994 & NVEC,NROOT,NVEC,NROOT,NROOT,NROOT,0) 1040 NVEC = NROOT [all …]
|
H A D | lucia3.F | 829 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 920 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 1171 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) 5413 CALL SETVEC(APROJ,ZERO,NROOT*(NROOT+1)/2) 5720 CALL IWRTMA(IXJEP,1,NROOT,1,NROOT) 5762 CALL WRTMAT(AVEC,NVEC,NROOT,NVEC,NROOT) 6240 CALL IWRTMA(ISUBSPCV2,1,NROOT,1,NROOT) 6496 CALL WRTMAT(DELTA,NVEC,NROOT,NVEC,NROOT) 7216 KFREE = KS + (2*NROOT)*MAX(2*NROOT,NVEC) 7219 KFREE = KX + (2*NROOT)*MAX(2*NROOT,NVEC) [all …]
|
H A D | lucia4.F | 2561 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 2582 & NROOT 2857 DO IROOT = 1, NROOT 3625 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 3709 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 3953 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) 3996 NVEC = NROOT 4120 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 4203 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 4447 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/lucita/ |
H A D | par_solver.F | 574 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 820 CALL DZERO(APROJ,NROOT*(NROOT+1)/2) 827 NVEC = NROOT 1105 & AVEC(1+(IVEC-1)*NROOT),NROOT) 1121 CALL IWRTMAMN(IXJEP,1,NROOT,1,NROOT,LUWRT) 1166 CALL WRTMATMN(AVEC,NVEC,NROOT,NVEC,NROOT,LUWRT) 1251 NNVEC = NROOT 1281 WORK(NROOT+JVEC+(JVEC-1)*2*NROOT) = 1.0D0 1286 & WORK(NROOT+1+(JVEC-1)*2*NROOT), 1312 FACT = WORK(NROOT+JVEC+(JVEC-1)*2*NROOT) [all …]
|
H A D | diagonalize.F | 67 DIMENSION RNRM(MAXIT,NROOT),EIG(MAXIT,NROOT) 576 & AVEC(1+(IVEC-1)*NROOT),NROOT) 592 CALL IWRTMA(IXJEP,1,NROOT,1,NROOT) 636 CALL WRTMT_LU(AVEC,NVEC,NROOT,NVEC,NROOT) 842 WORK(NROOT+KVEC+(JVEC-1)*2*NROOT) = 1189 CALL WRTMAT(EIG(1,1),1,NROOT,MAXIT,NROOT) 1430 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) 1738 CALL dzero(APROJ,NROOT*(NROOT+1)/2) 1987 CALL WRTMAT(AVEC,NVEC,NROOT,MAXVEC,NROOT) 2972 CALL WRTMT_LU(EIGVAL,1,NROOT,1,NROOT) [all …]
|
/dports/math/slatec/src/ |
H A D | cdriv2.f | 2 SUBROUTINE CDRIV2 (N, T, Y, F, TOUT, MSTATE, NROOT, EPS, EWT, argument 346 8 MSTATE, MU, MXORD, MXSTEP, N, NDE, NROOT, NSTATE, NTASK 398 CALL CDRIV3 (N, T, Y, F, NSTATE, TOUT, NTASK, NROOT, EPS, EWTCOM,
|
H A D | sdriv2.f | 2 SUBROUTINE SDRIV2 (N, T, Y, F, TOUT, MSTATE, NROOT, EPS, EWT, argument 345 8 MSTATE, MU, MXORD, MXSTEP, N, NDE, NROOT, NSTATE, NTASK 397 CALL SDRIV3 (N, T, Y, F, NSTATE, TOUT, NTASK, NROOT, EPS, EWTCOM,
|
H A D | ddriv2.f | 2 SUBROUTINE DDRIV2 (N, T, Y, F, TOUT, MSTATE, NROOT, EPS, EWT, argument 348 8 MSTATE, MU, MXORD, MXSTEP, N, NDE, NROOT, NSTATE, NTASK 400 CALL DDRIV3 (N, T, Y, F, NSTATE, TOUT, NTASK, NROOT, EPS, EWTCOM,
|
H A D | ddriv1.f | 294 8 N, NDE, NROOT, NSTATE, NTASK 298 PARAMETER(NROOT = 0, IERROR = 2, MINT = 2, MITER = 2, IMPL = 0, 349 CALL DDRIV3 (N, T, Y, F, NSTATE, TOUT, NTASK, NROOT, EPS, EWTCOM,
|
H A D | cdriv1.f | 296 8 N, NDE, NROOT, NSTATE, NTASK 300 PARAMETER(NROOT = 0, IERROR = 2, MINT = 2, MITER = 2, IMPL = 0, 351 CALL CDRIV3 (N, T, Y, F, NSTATE, TOUT, NTASK, NROOT, EPS, EWTCOM,
|
H A D | sdriv1.f | 291 8 N, NDE, NROOT, NSTATE, NTASK 295 PARAMETER(NROOT = 0, IERROR = 2, MINT = 2, MITER = 2, IMPL = 0, 346 CALL SDRIV3 (N, T, Y, F, NSTATE, TOUT, NTASK, NROOT, EPS, EWTCOM,
|
H A D | sdriv3.f | 883 ITROOT = IGNOW + NROOT 885 IFAC = ITROOT + NROOT 952 IF (NROOT .NE. 0) THEN 982 IF (NROOT .NE. 0) THEN 1012 IF (NROOT .NE. 0) THEN 1178 IF (NROOT .NE. 0) THEN 1179 DO 200 I = 1,NROOT 1370 IF (NROOT .NE. 0) THEN 1372 DO 500 I = 1,NROOT 1419 IWORK(INRTLD) = NROOT [all …]
|
H A D | ddriv3.f | 885 ITROOT = IGNOW + NROOT 887 IFAC = ITROOT + NROOT 954 IF (NROOT .NE. 0) THEN 984 IF (NROOT .NE. 0) THEN 1014 IF (NROOT .NE. 0) THEN 1180 IF (NROOT .NE. 0) THEN 1181 DO 200 I = 1,NROOT 1372 IF (NROOT .NE. 0) THEN 1374 DO 500 I = 1,NROOT 1421 IWORK(INRTLD) = NROOT [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/sdriv/ |
H A D | sdriv3.f | 1 SUBROUTINE SDRIV3 (N,T,Y,F,NSTATE,TOUT,NTASK,NROOT,EPS,EWT,IERROR, argument 620 IF (NROOT .NE. 0) THEN 691 ITROOT = IGNOW + NROOT 693 IA = ITROOT + NROOT 792 IF(NROOT .NE. 0) THEN 944 IF (NROOT .NE. 0) THEN 945 DO 200 I = 1,NROOT 1082 IF (ABS(H) .GE. UROUND*ABS(T) .AND. NROOT .NE. 0) THEN 1084 DO 500 I = 1,NROOT 1115 IWORK(INRTLD) = NROOT [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/ddriv/ |
H A D | ddriv3.f | 1 SUBROUTINE DDRIV3 (N,T,Y,F,NSTATE,TOUT,NTASK,NROOT,EPS,EWT,IERROR, argument 623 IF (NROOT .NE. 0) THEN 694 ITROOT = IGNOW + NROOT 696 IA = ITROOT + NROOT 795 IF(NROOT .NE. 0) THEN 947 IF (NROOT .NE. 0) THEN 948 DO 200 I = 1,NROOT 1085 IF (ABS(H) .GE. UROUND*ABS(T) .AND. NROOT .NE. 0) THEN 1087 DO 500 I = 1,NROOT 1118 IWORK(INRTLD) = NROOT [all …]
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cfac_b.F | 88 INTEGER IWPOS, LEAF, NBROOT, NROOT local 125 CALL MUMPS_INIT_NROOT_DIST(N, NBROOT, NROOT, 144 NROOT = NROOT + 1 156 & LRLUS, LEAF, NROOT, NBROOT,
|
H A D | zfac_b.F | 88 INTEGER IWPOS, LEAF, NBROOT, NROOT local 125 CALL MUMPS_INIT_NROOT_DIST(N, NBROOT, NROOT, 144 NROOT = NROOT + 1 156 & LRLUS, LEAF, NROOT, NBROOT,
|
H A D | dfac_b.F | 88 INTEGER IWPOS, LEAF, NBROOT, NROOT local 125 CALL MUMPS_INIT_NROOT_DIST(N, NBROOT, NROOT, 144 NROOT = NROOT + 1 156 & LRLUS, LEAF, NROOT, NBROOT,
|
H A D | sfac_b.F | 88 INTEGER IWPOS, LEAF, NBROOT, NROOT local 125 CALL MUMPS_INIT_NROOT_DIST(N, NBROOT, NROOT, 144 NROOT = NROOT + 1 156 & LRLUS, LEAF, NROOT, NBROOT,
|
/dports/math/slatec/ |
H A D | sdqck.f | 32 8 MXORD, MXSTEP, N, NDE, NFE, NJE, NROOT, NSTATE, NSTEP, 36 8 MXORD = 5, MXSTEP = 1000, N = 3, NROOT = 0, NTASK = 1) 188 CALL SDRIV2 (N, T, Y, SDF, TOUT, MSTATE, NROOT, EPS, EWT, 274 CALL SDRIV2 (N, T, Y, SDF, TOUT, MSTATE, NROOT, EPS, EWT, 331 CALL SDRIV3 (N, T, Y, SDF, NSTATE, TOUT, NTASK, NROOT, EPS, EWT, 423 CALL SDRIV3 (N, T, Y, SDF, NSTATE, TOUT, NTASK, NROOT, EPS,
|