Home
last modified time | relevance | path

Searched refs:WA2 (Results 1 – 25 of 332) sorted by relevance

12345678910>>...14

/dports/math/cmlib/cmlib-3.0_8/src/vfft/
H A Dvradf3.f1 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 Dvradf5.f34 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 Dvradf4.f1 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 Ddnsq.f4 + 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 Dsnsq.f4 + 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 Dradf3.f2 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 Dradb3.f2 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 Dpassb3.f2 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 Dpassf3.f2 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 Ddfdjc1.f3 + 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 Dfdjac1.f3 + 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 Ddnls1.f4 + 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 Dsnls1.f4 + 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 Dvsint.orig.f237 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 Dvsint.orig.f237 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 Dsnsq.f3 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 Dfdjac1.f2 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 Dsnls1.f3 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 Dradf3.f1 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 Dradb3.f1 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 Dpassb3.f1 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 Dpassf3.f1 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 Dpassb4.f1 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 Dradf3.f2 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 Dradb3.f2 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

12345678910>>...14