Home
last modified time | relevance | path

Searched refs:NROOT (Results 1 – 25 of 121) sorted by relevance

12345

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/
H A Dmicdv6o.F53 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 Dlucia_ccrsp.F440 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 Dlucia3.F829 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 Dlucia4.F2561 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 Dmicdv6o.F53 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 Dlucia_ccrsp.F440 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 Dlucia3.F829 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 Dlucia4.F2561 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 Dpar_solver.F574 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 Ddiagonalize.F67 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 Dcdriv2.f2 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 Dsdriv2.f2 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 Dddriv2.f2 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 Dddriv1.f294 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 Dcdriv1.f296 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 Dsdriv1.f291 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 Dsdriv3.f883 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 Dddriv3.f885 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 Dsdriv3.f1 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 Dddriv3.f1 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 Dcfac_b.F88 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 Dzfac_b.F88 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 Ddfac_b.F88 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 Dsfac_b.F88 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 Dsdqck.f32 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,

12345