/dports/math/cmlib/cmlib-3.0_8/src/vfft/ |
H A D | vradf5.f | 39 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 45 1 +WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)*CC(M,I,K,4))+TI11* 49 1 -(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)*CC(M,I-1,K,4))) 54 1 +WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)*CC(M,I,K,4))-(TI11* 58 1 -(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)*CC(M,I-1,K,4)))) 62 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 65 1 CC(M,I,K,2)))+TI12*((WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* 70 1 CC(M,I,K,2)))+TI12*((WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* 75 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 98 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(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) 25 1 CC(M,I,K,2))+(WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* 30 1 WA1(I-1)*CC(M,I,K,2))+(WA3(I-2)*CC(M,I-1,K,4)+ 31 1 WA3(I-1)*CC(M,I,K,4))) 33 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 37 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 41 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 46 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 48 CH(M,I,3,K) = ((WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* [all …]
|
/dports/math/slatec/src/ |
H A D | dnsq.f | 4 + NJEV, R, LR, QTF, WA1, WA2, WA3, WA4) 526 WA3(J) = DIAG(J)*X(J) 528 XNORM = DENORM(N,WA3) 602 WA3(J) = DIAG(J)*WA1(J) 604 PNORM = DENORM(N,WA3) 633 WA3(I) = QTF(I) + SUM 635 TEMP = DENORM(N,WA3) 711 WA2(J) = (SUM - WA3(J))/PNORM 718 CALL D1UPDT(N,N,R,LR,WA1,WA2,WA3,SING) 719 CALL D1MPYQ(N,N,FJAC,LDFJAC,WA2,WA3) [all …]
|
H A D | snsq.f | 4 + NJEV, R, LR, QTF, WA1, WA2, WA3, WA4) 425 1 WA2(*),WA3(*),WA4(*) 517 WA3(J) = DIAG(J)*X(J) 519 XNORM = ENORM(N,WA3) 591 WA3(J) = DIAG(J)*WA1(J) 593 PNORM = ENORM(N,WA3) 621 WA3(I) = QTF(I) + SUM 623 TEMP = ENORM(N,WA3) 696 WA2(J) = (SUM - WA3(J))/PNORM 704 CALL R1MPYQ(N,N,FJAC,LDFJAC,WA2,WA3) [all …]
|
H A D | passb4.f | 2 SUBROUTINE PASSB4 (IDO, L1, CC, CH, WA1, WA2, WA3) argument 21 DIMENSION CC(IDO,4,*), CH(IDO,L1,4), WA1(*), WA2(*), WA3(*) 67 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 68 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4 95 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 96 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4
|
H A D | radb4.f | 2 SUBROUTINE RADB4 (IDO, L1, CC, CH, WA1, WA2, WA3) argument 24 DIMENSION CC(IDO,4,*), CH(IDO,L1,4), WA1(*), WA2(*), WA3(*) 64 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 65 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 93 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 94 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
|
H A D | passf4.f | 2 SUBROUTINE PASSF4 (IDO, L1, CC, CH, WA1, WA2, WA3) argument 21 DIMENSION CC(IDO,4,*), CH(IDO,L1,4), WA1(*), WA2(*), WA3(*) 67 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 68 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4 95 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 96 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4
|
H A D | radf4.f | 2 SUBROUTINE RADF4 (IDO, L1, CC, CH, WA1, WA2, WA3) argument 24 DIMENSION CC(IDO,L1,4), CH(IDO,4,*), WA1(*), WA2(*), WA3(*) 46 CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 47 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 75 CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 76 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
|
H A D | dnls1.f | 4 + NFEV, NJEV, IPVT, QTF, WA1, WA2, WA3, WA4) 605 1 WA1(*),WA2(*),WA3(*),WA4(*) 763 CALL FCN(IFLAG,M,N,X,FVEC,WA3,NROW) 843 WA3(J) = DIAG(J)*X(J) 845 XNORM = DENORM(N,WA3) 886 1 WA3,WA4) 893 WA3(J) = DIAG(J)*WA1(J) 895 PNORM = DENORM(N,WA3) 918 WA3(J) = ZERO 922 WA3(I) = WA3(I) + FJAC(I,J)*TEMP [all …]
|
H A D | snls1.f | 4 + NFEV, NJEV, IPVT, QTF, WA1, WA2, WA3, WA4) 609 1 WA3(*),WA4(*) 768 CALL FCN(IFLAG,M,N,X,FVEC,WA3,NROW) 848 WA3(J) = DIAG(J)*X(J) 850 XNORM = ENORM(N,WA3) 891 1 WA3,WA4) 898 WA3(J) = DIAG(J)*WA1(J) 900 PNORM = ENORM(N,WA3) 923 WA3(J) = ZERO 927 WA3(I) = WA3(I) + FJAC(I,J)*TEMP [all …]
|
H A D | radf5.f | 2 SUBROUTINE RADF5 (IDO, L1, CC, CH, WA1, WA2, WA3, WA4) argument 24 DIMENSION CC(IDO,L1,5), CH(IDO,5,*), WA1(*), WA2(*), WA3(*), 54 DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 55 DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 95 DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 96 DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
|
/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) 508 WA3(J) = DIAG(J)*X(J) 510 XNORM = ENORM(N,WA3) 582 WA3(J) = DIAG(J)*WA1(J) 584 PNORM = ENORM(N,WA3) 612 WA3(I) = QTF(I) + SUM 614 TEMP = ENORM(N,WA3) 687 WA2(J) = (SUM - WA3(J))/PNORM 695 CALL R1MPYQ(N,N,FJAC,LDFJAC,WA2,WA3) [all …]
|
H A D | snls1.f | 3 2 WA1,WA2,WA3,WA4) 601 1 WA3(N),WA4(M) 752 CALL FCN(IFLAG,M,N,X,FVEC,WA3,NROW) 828 WA3(J) = DIAG(J)*X(J) 830 XNORM = ENORM(N,WA3) 871 1 WA3,WA4) 878 WA3(J) = DIAG(J)*WA1(J) 880 PNORM = ENORM(N,WA3) 903 WA3(J) = ZERO 907 WA3(I) = WA3(I) + FJAC(I,J)*TEMP [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/ |
H A D | passb4.f | 1 SUBROUTINE PASSB4(IDO,L1,CC,CH,WA1,WA2,WA3) argument 10 1 WA1(*) ,WA2(*) ,WA3(*) 56 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 57 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4 84 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 85 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4
|
H A D | radf4.f | 1 SUBROUTINE RADF4(IDO,L1,CC,CH,WA1,WA2,WA3) argument 10 1 WA1(*) ,WA2(*) ,WA3(*) 32 CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 33 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 61 CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 62 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
|
H A D | passf4.f | 1 SUBROUTINE PASSF4(IDO,L1,CC,CH,WA1,WA2,WA3) argument 10 1 WA1(*) ,WA2(*) ,WA3(*) 56 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 57 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4 84 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 85 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4
|
H A D | radb4.f | 1 SUBROUTINE RADB4(IDO,L1,CC,CH,WA1,WA2,WA3) argument 10 1 WA1(*) ,WA2(*) ,WA3(*) 50 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 51 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 79 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 80 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
|
H A D | radf5.f | 1 SUBROUTINE RADF5(IDO,L1,CC,CH,WA1,WA2,WA3,WA4) argument 10 1 WA1(*) ,WA2(*) ,WA3(*) ,WA4(*) 36 DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 37 DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 77 DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 78 DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
|
H A D | radb5.f | 1 SUBROUTINE RADB5(IDO,L1,CC,CH,WA1,WA2,WA3,WA4) argument 10 1 WA1(*) ,WA2(*) ,WA3(*) ,WA4(*) 66 CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4 67 CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4 107 CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4 108 CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | radf4.f | 2 SUBROUTINE RADF4 (IDO, L1, CC, CH, WA1, WA2, WA3) argument 24 DIMENSION CC(IDO,L1,4), CH(IDO,4,*), WA1(*), WA2(*), WA3(*) 46 CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 47 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 75 CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 76 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
|
H A D | radb4.f | 2 SUBROUTINE RADB4 (IDO, L1, CC, CH, WA1, WA2, WA3) argument 24 DIMENSION CC(IDO,4,*), CH(IDO,L1,4), WA1(*), WA2(*), WA3(*) 64 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 65 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 93 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 94 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
|
H A D | radf5.f | 2 SUBROUTINE RADF5 (IDO, L1, CC, CH, WA1, WA2, WA3, WA4) argument 24 DIMENSION CC(IDO,L1,5), CH(IDO,5,*), WA1(*), WA2(*), WA3(*), 54 DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 55 DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 95 DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) 96 DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
|
H A D | radb5.f | 2 SUBROUTINE RADB5 (IDO, L1, CC, CH, WA1, WA2, WA3, WA4) argument 24 DIMENSION CC(IDO,5,*), CH(IDO,L1,5), WA1(*), WA2(*), WA3(*), 84 CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4 85 CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4 125 CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4 126 CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | vsint.orig.f | 289 1 CC(M,I,K,2))+(WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* 297 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 301 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 305 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 310 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 312 CH(M,I,3,K) = ((WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* 378 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 401 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 414 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 437 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/ |
H A D | vsint.orig.f | 289 1 CC(M,I,K,2))+(WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* 297 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 301 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 305 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 310 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 312 CH(M,I,3,K) = ((WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)* 378 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 401 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 414 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* 437 1 CC(M,I-1,K,3))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)* [all …]
|