Home
last modified time | relevance | path

Searched refs:IPASS (Results 1 – 25 of 308) sorted by relevance

12345678910>>...13

/dports/math/slatec/
H A Dtest40.f66 CALL CDQAG (LUN, KPRINT, IPASS)
67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
71 CALL CDQAGS (LUN, KPRINT, IPASS)
72 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
76 CALL CDQAGP (LUN, KPRINT, IPASS)
81 CALL CDQAGI (LUN, KPRINT, IPASS)
86 CALL CDQAWO (LUN, KPRINT, IPASS)
91 CALL CDQAWF (LUN, KPRINT, IPASS)
96 CALL CDQAWS (LUN, KPRINT, IPASS)
101 CALL CDQAWC (LUN, KPRINT, IPASS)
[all …]
H A Dtest39.f65 CALL CQAG (LUN, KPRINT, IPASS)
66 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
70 CALL CQAGS (LUN, KPRINT, IPASS)
71 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
75 CALL CQAGP (LUN, KPRINT, IPASS)
80 CALL CQAGI (LUN, KPRINT, IPASS)
85 CALL CQAWO (LUN, KPRINT, IPASS)
90 CALL CQAWF (LUN, KPRINT, IPASS)
95 CALL CQAWS (LUN, KPRINT, IPASS)
100 CALL CQAWC (LUN, KPRINT, IPASS)
[all …]
H A Dtest50.f68 CALL QXCRT(LUN,KPRINT,IPASS)
69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
73 CALL QXPLR(LUN,KPRINT,IPASS)
74 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
78 CALL QXCYL(LUN,KPRINT,IPASS)
79 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
83 CALL QXSSP(LUN,KPRINT,IPASS)
84 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
88 CALL QXCSP(LUN,KPRINT,IPASS)
93 CALL QXGBUN(LUN,KPRINT,IPASS)
[all …]
H A Dtest10.f61 CALL ZQCAI(LUN,KPRINT,IPASS)
62 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
63 CALL ZQCBH(LUN,KPRINT,IPASS)
64 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
65 CALL ZQCBI(LUN,KPRINT,IPASS)
66 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
67 CALL ZQCBJ(LUN,KPRINT,IPASS)
68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
69 CALL ZQCBK(LUN,KPRINT,IPASS)
70 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
[all …]
H A Dtest09.f60 CALL CQCAI(LUN,KPRINT,IPASS)
61 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
62 CALL CQCBH(LUN,KPRINT,IPASS)
63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
64 CALL CQCBI(LUN,KPRINT,IPASS)
65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
66 CALL CQCBJ(LUN,KPRINT,IPASS)
67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
68 CALL CQCBK(LUN,KPRINT,IPASS)
69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
[all …]
H A Ddavnts.f26 IPASS = 1
48 IPASS = 0
66 IPASS = 0
104 IPASS = 0
114 IPASS = 0
119 IPASS = 0
129 IPASS = 0
134 IPASS = 0
146 IPASS = 0
151 IPASS = 0
[all …]
H A Dtest32.f46 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
65 CALL PCHQK1(LUN,KPRINT,IPASS)
66 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
70 CALL PCHQK2(LUN,KPRINT,IPASS)
71 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
75 CALL PCHQK3(LUN,KPRINT,IPASS)
76 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
80 CALL PCHQK4(LUN,KPRINT,IPASS)
81 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
85 CALL PCHQK5(LUN,KPRINT,IPASS)
[all …]
H A Dtest34.f45 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
64 CALL CPRPQX(LUN,KPRINT,IPASS)
65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
69 CALL FZTEST(LUN,KPRINT,IPASS)
70 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
74 CALL DFZTST(LUN,KPRINT,IPASS)
75 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
79 CALL RQRTST(LUN,KPRINT,IPASS)
80 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
84 CALL CQRTST(LUN,KPRINT,IPASS)
[all …]
H A Dtest33.f47 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
66 CALL DPCHQ1(LUN,KPRINT,IPASS)
67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
71 CALL DPCHQ2(LUN,KPRINT,IPASS)
72 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
76 CALL DPCHQ3(LUN,KPRINT,IPASS)
77 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
81 CALL DPCHQ4(LUN,KPRINT,IPASS)
82 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
86 CALL DPCHQ5(LUN,KPRINT,IPASS)
[all …]
H A Davntst.f23 IPASS = 1
45 IPASS = 0
63 IPASS = 0
101 IPASS = 0
111 IPASS = 0
116 IPASS = 0
126 IPASS = 0
131 IPASS = 0
143 IPASS = 0
148 IPASS = 0
[all …]
H A Dtest43.f43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
62 CALL QXABM(LUN,KPRINT,IPASS)
63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
67 CALL QXBDF(LUN,KPRINT,IPASS)
68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
72 CALL QXRKF(LUN,KPRINT,IPASS)
73 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
77 CALL QXBVSP(LUN,KPRINT,IPASS)
78 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
H A Dtest13.f43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
62 CALL QCRC(LUN,KPRINT,IPASS)
63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
64 CALL QCRD(LUN,KPRINT,IPASS)
65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
66 CALL QCRF(LUN,KPRINT,IPASS)
67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
68 CALL QCRJ(LUN,KPRINT,IPASS)
69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
H A Dtest14.f43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
62 CALL QCDRC(LUN,KPRINT,IPASS)
63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
64 CALL QCDRD(LUN,KPRINT,IPASS)
65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
66 CALL QCDRF(LUN,KPRINT,IPASS)
67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
68 CALL QCDRJ(LUN,KPRINT,IPASS)
69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
H A Dtest44.f43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
62 CALL QXDABM(LUN,KPRINT,IPASS)
63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
67 CALL QXDBDF(LUN,KPRINT,IPASS)
68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
72 CALL QXDRKF(LUN,KPRINT,IPASS)
73 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
77 CALL QXDBVS(LUN,KPRINT,IPASS)
78 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
H A Dtest54.f42 INTEGER LUN, I1MACH, LIN, NFAIL, KPRINT, IPASS
61 CALL ISRTQC(LUN, KPRINT, IPASS)
62 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
66 CALL SSRTQC(LUN, KPRINT, IPASS)
67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
71 CALL DSRTQC(LUN, KPRINT, IPASS)
72 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
76 CALL HSRTQC(LUN, KPRINT, IPASS)
77 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
H A Ddbspck.f54 IPASS = 1
87 IPASS = 0
95 IPASS = 0
101 IPASS = 0
129 IPASS = 0
338 IPASS = 0
345 IPASS = 0
360 IPASS = 0
367 IPASS = 0
383 IPASS = 0
[all …]
H A Deisqx1.f2 SUBROUTINE EISQX1 (LUN, KPRINT, IPASS) argument
22 INTEGER KPRINT,IPASS,LUN
31 IPASS = 1
42 IPASS = 0
46 IF (ERR .GE. RELERR) IPASS = 0
55 IF (ABS(RECJ-EK(ID))/ABS(EK(ID)) .GE. RELERR) IPASS = 0
61 IPASS = 0
65 IF (ERR .GE. RELERR) IPASS = 0
74 IF (ABS(RECJ-EK(ID))/ABS(EK(ID)) .GE. RELERR) IPASS = 0
76 IF (KPRINT.GE.2 .AND. IPASS.NE.0) WRITE (LUN,670)
[all …]
H A Dbspck.f55 IPASS = 1
88 IPASS = 0
96 IPASS = 0
102 IPASS = 0
130 IPASS = 0
339 IPASS = 0
346 IPASS = 0
361 IPASS = 0
368 IPASS = 0
384 IPASS = 0
[all …]
H A Drqrtst.f2 SUBROUTINE RQRTST (LUN, KPRINT, IPASS) argument
31 IPASS = 1
62 IPASS = 1
64 IPASS = IPASS*ITMP(I)
69 IF (KPRINT.GE.3 .OR. (KPRINT.GE.2.AND.IPASS.EQ.0)) THEN
76 CALL PASS (LUN, 1, IPASS)
110 IPASS = 0
120 IF (IPASS.EQ.1 .AND. KPRINT.GT.1) WRITE (LUN,90100)
121 IF (IPASS.EQ.0 .AND. KPRINT.NE.0) WRITE (LUN,90110)
H A Ddpntck.f2 SUBROUTINE DPNTCK (LUN, KPRINT, IPASS) argument
15 INTEGER IPASS, KPRINT, LUN
41 IPASS = 1
54 IPASS = 0
70 IPASS = 0
77 IPASS = 0
96 IPASS = 0
104 IPASS = 0
120 IF (IPASS.EQ.1 .AND. KPRINT.GE.2) WRITE (LUN,9080)
121 IF (IPASS.EQ.0 .AND. KPRINT.GE.1) WRITE (LUN,9090)
/dports/math/cmlib/cmlib-3.0_8/test/
H A Dlicepak.f47 CALL EISQX1(KPRINT,IPASS)
48 ITEST=ITEST*IPASS
50 CALL EISQX2(KPRINT,IPASS)
51 ITEST=ITEST*IPASS
67 SUBROUTINE EISQX1(KPRINT,IPASS) argument
76 INTEGER KPRINT,IPASS,ICNT,ITEST,LUN local
84 IPASS = 1
96 IF (ERR .GE. RELERR) IPASS = 0
112 IF (ERR .GE. RELERR) IPASS = 0
129 SUBROUTINE EISQX2(KPRINT,IPASS) argument
[all …]
H A Dquadpkd.f47 ITEST=ITEST*IPASS
160 IPASS=FLAG
186 IPASS = 1
277 IPASS = 1
394 IPASS = 1
515 IPASS = 1
625 IPASS = 1
706 IPASS = 1
801 IPASS = 1
906 IPASS = 1
[all …]
H A Dfishpak.f53 ITEST=ITEST*IPASS
56 ITEST=ITEST*IPASS
59 ITEST=ITEST*IPASS
62 ITEST=ITEST*IPASS
195 IPASS=1
331 IPASS=1
453 IPASS=1
655 IPASS=1
785 IPASS=1
920 IPASS=1
[all …]
H A Dssort.f45 CALL SSORQ1(KPRINT,IPASS)
46 ITEST=ITEST*IPASS
48 CALL SSORQ2(KPRINT,IPASS)
49 ITEST=ITEST*IPASS
72 SUBROUTINE SSORQ1(KPRINT,IPASS) argument
86 IPASS=0
88 IF(IPASS .EQ. 1.AND.KPRINT.GE.2) THEN
104 SUBROUTINE SSORQ2(KPRINT,IPASS) argument
106 INTEGER KPRINT,IPASS local
110 IPASS=1
[all …]
H A Dquadpks.f47 ITEST=ITEST*IPASS
159 IPASS=FLAG
185 IPASS = 1
276 IPASS = 1
390 IPASS = 1
511 IPASS = 1
623 IPASS = 1
704 IPASS = 1
798 IPASS = 1
902 IPASS = 1
[all …]

12345678910>>...13