/dports/math/cmlib/cmlib-3.0_8/src/vfft/ |
H A D | vradf3.f | 1 SUBROUTINE VRADF3 (MP,IDO,L1,CC,CH,MDIMC,WA1,WA2) argument 6 1 WA1(IDO) ,WA2(IDO) 25 1 WA1(I-1)*CC(M,I,K,2))+(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 28 1 CC(M,I-1,K,2))+(WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 31 1 CC(M,I-1,K,2)+WA1(I-1)*CC(M,I,K,2))+(WA2(I-2)* 34 1 CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3)))) 39 1 CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3)))) 41 1 WA1(I-1)*CC(M,I-1,K,2))+(WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 42 1 CC(M,I-1,K,3))))+(TAUI*((WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 45 CH(M,IC,2,K) = (TAUI*((WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* [all …]
|
H A D | vradf5.f | 34 1 CC(M,I,K,5)))+((WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 38 1 CC(M,I-1,K,5)))+((WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 44 1 ( WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)*CC(M,I,K,3) 48 1 ( WA2(I-2)*CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3) 53 1 ( WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)*CC(M,I,K,3) 57 1 ( WA2(I-2)*CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3) 61 1 CC(M,I-1,K,5)))+TR12*((WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 66 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 71 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 102 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* [all …]
|
H A D | vradf4.f | 1 SUBROUTINE VRADF4 (MP,IDO,L1,CC,CH,MDIMC,WA1,WA2,WA3) argument 6 1 WA1(IDO) ,WA2(IDO) ,WA3(IDO) 27 1 WA2(I-1)*CC(M,I,K,3))) 29 1 WA2(I-1)*CC(M,I,K,3)))-((WA1(I-2)*CC(M,I-1,K,2)+ 34 1 CC(M,I-1,K,4)))+(CC(M,I,K,1)+(WA2(I-2)*CC(M,I,K,3)- 35 1 WA2(I-1)*CC(M,I-1,K,3))) 39 1 WA2(I-1)*CC(M,I-1,K,3))) 43 1 WA2(I-1)*CC(M,I,K,3))) 50 1 CC(M,I,K,2)))+(CC(M,I,K,1)-(WA2(I-2)*CC(M,I,K,3)- 51 1 WA2(I-1)*CC(M,I-1,K,3))) [all …]
|
/dports/math/slatec/src/ |
H A D | dnsq.f | 4 + NJEV, R, LR, QTF, WA1, WA2, WA3, WA4) 499 1 EPSFCN,WA1,WA2) 517 DIAG(J) = WA2(J) 575 DIAG(J) = MAX(DIAG(J),WA2(J)) 601 WA2(J) = X(J) + WA1(J) 613 CALL FCN(N,WA2,WA4,IFLAG) 667 X(J) = WA2(J) 668 WA2(J) = DIAG(J)*X(J) 671 XNORM = DENORM(N,WA2) 711 WA2(J) = (SUM - WA3(J))/PNORM [all …]
|
H A D | snsq.f | 4 + NJEV, R, LR, QTF, WA1, WA2, WA3, WA4) 425 1 WA2(*),WA3(*),WA4(*) 493 1 WA2) 508 DIAG(J) = WA2(J) 566 DIAG(J) = MAX(DIAG(J),WA2(J)) 590 WA2(J) = X(J) + WA1(J) 602 CALL FCN(N,WA2,WA4,IFLAG) 655 X(J) = WA2(J) 656 WA2(J) = DIAG(J)*X(J) 659 XNORM = ENORM(N,WA2) [all …]
|
H A D | radf3.f | 2 SUBROUTINE RADF3 (IDO, L1, CC, CH, WA1, WA2) argument 24 DIMENSION CH(IDO,3,*), CC(IDO,L1,3), WA1(*), WA2(*) 43 DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) 44 DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) 66 DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) 67 DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
|
H A D | radb3.f | 2 SUBROUTINE RADB3 (IDO, L1, CC, CH, WA1, WA2) argument 24 DIMENSION CC(IDO,3,*), CH(IDO,L1,3), WA1(*), WA2(*) 57 CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 58 CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 80 CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 81 CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
|
H A D | passb3.f | 2 SUBROUTINE PASSB3 (IDO, L1, CC, CH, WA1, WA2) argument 24 DIMENSION CC(IDO,3,*), CH(IDO,L1,3), WA1(*), WA2(*) 62 CH(I,K,3) = WA2(I-1)*DI3+WA2(I)*DR3 63 CH(I-1,K,3) = WA2(I-1)*DR3-WA2(I)*DI3 84 CH(I,K,3) = WA2(I-1)*DI3+WA2(I)*DR3 85 CH(I-1,K,3) = WA2(I-1)*DR3-WA2(I)*DI3
|
H A D | passf3.f | 2 SUBROUTINE PASSF3 (IDO, L1, CC, CH, WA1, WA2) argument 24 DIMENSION CC(IDO,3,*), CH(IDO,L1,3), WA1(*), WA2(*) 62 CH(I,K,3) = WA2(I-1)*DI3-WA2(I)*DR3 63 CH(I-1,K,3) = WA2(I-1)*DR3+WA2(I)*DI3 84 CH(I,K,3) = WA2(I-1)*DI3-WA2(I)*DR3 85 CH(I-1,K,3) = WA2(I-1)*DR3+WA2(I)*DI3
|
H A D | dfdjc1.f | 3 + EPSFCN, WA1, WA2) 96 1 FVEC(*), H, TEMP, WA1(*), WA2(*), X(*), ZERO 131 WA2(J) = X(J) 132 H = EPS*ABS(WA2(J)) 134 X(J) = WA2(J) + H 139 X(J) = WA2(J) 140 H = EPS*ABS(WA2(J))
|
H A D | fdjac1.f | 3 + EPSFCN, WA1, WA2) 96 REAL X(*),FVEC(*),FJAC(LDFJAC,*),WA1(*),WA2(*) 131 WA2(J) = X(J) 132 H = EPS*ABS(WA2(J)) 134 X(J) = WA2(J) + H 139 X(J) = WA2(J) 140 H = EPS*ABS(WA2(J))
|
H A D | dnls1.f | 4 + NFEV, NJEV, IPVT, QTF, WA1, WA2, WA3, WA4) 605 1 WA1(*),WA2(*),WA3(*),WA4(*) 809 WA2(J) = DENORM(J,FJAC(1,J)) 834 DIAG(J) = WA2(J) 856 IF (WA2(L) .EQ. ZERO) GO TO 150 861 GNORM = MAX(GNORM,ABS(SUM/WA2(L))) 875 DIAG(J) = MAX(DIAG(J),WA2(J)) 892 WA2(J) = X(J) + WA1(J) 960 X(J) = WA2(J) 961 WA2(J) = DIAG(J)*X(J) [all …]
|
H A D | snls1.f | 4 + NFEV, NJEV, IPVT, QTF, WA1, WA2, WA3, WA4) 814 WA2(J) = ENORM(J,FJAC(1,J)) 839 DIAG(J) = WA2(J) 840 IF (WA2(J) .EQ. ZERO) DIAG(J) = ONE 861 IF (WA2(L) .EQ. ZERO) GO TO 150 866 GNORM = MAX(GNORM,ABS(SUM/WA2(L))) 880 DIAG(J) = MAX(DIAG(J),WA2(J)) 897 WA2(J) = X(J) + WA1(J) 965 X(J) = WA2(J) 966 WA2(J) = DIAG(J)*X(J) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | vsint.orig.f | 237 1 CC(M,I-1,K,2))+(WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 373 1 CC(M,I,K,5)))+((WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 377 1 CC(M,I-1,K,5)))+((WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 383 1 ( WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)*CC(M,I,K,3) 387 1 ( WA2(I-2)*CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3) 392 1 ( WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)*CC(M,I,K,3) 396 1 ( WA2(I-2)*CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3) 405 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 410 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 441 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/ |
H A D | vsint.orig.f | 237 1 CC(M,I-1,K,2))+(WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 373 1 CC(M,I,K,5)))+((WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 377 1 CC(M,I-1,K,5)))+((WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 383 1 ( WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)*CC(M,I,K,3) 387 1 ( WA2(I-2)*CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3) 392 1 ( WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)*CC(M,I,K,3) 396 1 ( WA2(I-2)*CC(M,I,K,3)-WA2(I-1)*CC(M,I-1,K,3) 405 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 410 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* 441 1 CC(M,I,K,4))-(WA2(I-2)*CC(M,I-1,K,3)+WA2(I-1)* [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/snls1e/ |
H A D | snsq.f | 3 2 WA2,WA3,WA4) 417 1 WA2(N),WA3(N),WA4(N) 484 1 WA2) 499 DIAG(J) = WA2(J) 557 DIAG(J) = AMAX1(DIAG(J),WA2(J)) 581 WA2(J) = X(J) + WA1(J) 593 CALL FCN(N,WA2,WA4,IFLAG) 646 X(J) = WA2(J) 647 WA2(J) = DIAG(J)*X(J) 650 XNORM = ENORM(N,WA2) [all …]
|
H A D | fdjac1.f | 2 1 WA1,WA2) 92 REAL X(N),FVEC(N),FJAC(LDFJAC,N),WA1(N),WA2(N) 126 WA2(J) = X(J) 127 H = EPS*ABS(WA2(J)) 129 X(J) = WA2(J) + H 134 X(J) = WA2(J) 135 H = EPS*ABS(WA2(J))
|
H A D | snls1.f | 3 2 WA1,WA2,WA3,WA4) 794 WA2(J) = ENORM(J,FJAC(1,J)) 819 DIAG(J) = WA2(J) 820 IF (WA2(J) .EQ. ZERO) DIAG(J) = ONE 841 IF (WA2(L) .EQ. ZERO) GO TO 150 846 GNORM = AMAX1(GNORM,ABS(SUM/WA2(L))) 860 DIAG(J) = AMAX1(DIAG(J),WA2(J)) 877 WA2(J) = X(J) + WA1(J) 945 X(J) = WA2(J) 946 WA2(J) = DIAG(J)*X(J) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/ |
H A D | radf3.f | 1 SUBROUTINE RADF3(IDO,L1,CC,CH,WA1,WA2) argument 10 1 WA1(*) ,WA2(*) 28 DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) 29 DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) 51 DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) 52 DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
|
H A D | radb3.f | 1 SUBROUTINE RADB3(IDO,L1,CC,CH,WA1,WA2) argument 10 1 WA1(*) ,WA2(*) 42 CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 43 CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 65 CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 66 CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
|
H A D | passb3.f | 1 SUBROUTINE PASSB3(IDO,L1,CC,CH,WA1,WA2) argument 10 1 WA1(*) ,WA2(*) 47 CH(I,K,3) = WA2(I-1)*DI3+WA2(I)*DR3 48 CH(I-1,K,3) = WA2(I-1)*DR3-WA2(I)*DI3 69 CH(I,K,3) = WA2(I-1)*DI3+WA2(I)*DR3 70 CH(I-1,K,3) = WA2(I-1)*DR3-WA2(I)*DI3
|
H A D | passf3.f | 1 SUBROUTINE PASSF3(IDO,L1,CC,CH,WA1,WA2) argument 10 1 WA1(*) ,WA2(*) 47 CH(I,K,3) = WA2(I-1)*DI3-WA2(I)*DR3 48 CH(I-1,K,3) = WA2(I-1)*DR3+WA2(I)*DI3 69 CH(I,K,3) = WA2(I-1)*DI3-WA2(I)*DR3 70 CH(I-1,K,3) = WA2(I-1)*DR3+WA2(I)*DI3
|
H A D | passb4.f | 1 SUBROUTINE PASSB4(IDO,L1,CC,CH,WA1,WA2,WA3) argument 10 1 WA1(*) ,WA2(*) ,WA3(*) 54 CH(I-1,K,3) = WA2(I-1)*CR3-WA2(I)*CI3 55 CH(I,K,3) = WA2(I-1)*CI3+WA2(I)*CR3 82 CH(I-1,K,3) = WA2(I-1)*CR3-WA2(I)*CI3 83 CH(I,K,3) = WA2(I-1)*CI3+WA2(I)*CR3
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | radf3.f | 2 SUBROUTINE RADF3 (IDO, L1, CC, CH, WA1, WA2) argument 24 DIMENSION CH(IDO,3,*), CC(IDO,L1,3), WA1(*), WA2(*) 43 DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) 44 DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) 66 DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) 67 DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
|
H A D | radb3.f | 2 SUBROUTINE RADB3 (IDO, L1, CC, CH, WA1, WA2) argument 24 DIMENSION CC(IDO,3,*), CH(IDO,L1,3), WA1(*), WA2(*) 57 CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 58 CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 80 CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 81 CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
|