Home
last modified time | relevance | path

Searched refs:WA3 (Results 1 – 25 of 262) sorted by relevance

1234567891011

/dports/math/cmlib/cmlib-3.0_8/src/vfft/
H A Dvradf5.f39 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 Dvradf4.f1 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 Ddnsq.f4 + 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 Dsnsq.f4 + 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 Dpassb4.f2 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 Dradb4.f2 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 Dpassf4.f2 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 Dradf4.f2 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 Ddnls1.f4 + 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 Dsnls1.f4 + 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 Dradf5.f2 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 Dsnsq.f3 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 Dsnls1.f3 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 Dpassb4.f1 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 Dradf4.f1 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 Dpassf4.f1 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 Dradb4.f1 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 Dradf5.f1 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 Dradb5.f1 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 Dradf4.f2 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 Dradb4.f2 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 Dradf5.f2 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 Dradb5.f2 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 Dvsint.orig.f289 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 Dvsint.orig.f289 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 …]

1234567891011