/dports/math/slatec/ |
H A D | test40.f | 66 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 D | test39.f | 65 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 D | test50.f | 68 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 D | test10.f | 61 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 D | test09.f | 60 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 D | davnts.f | 26 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 D | test32.f | 46 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 D | test34.f | 45 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 D | test33.f | 47 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 D | avntst.f | 23 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 D | test43.f | 43 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 D | test13.f | 43 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 D | test14.f | 43 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 D | test44.f | 43 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 D | test54.f | 42 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 D | dbspck.f | 54 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 D | eisqx1.f | 2 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 D | bspck.f | 55 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 D | rqrtst.f | 2 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 D | dpntck.f | 2 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 D | licepak.f | 47 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 D | quadpkd.f | 47 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 D | fishpak.f | 53 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 D | ssort.f | 45 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 D | quadpks.f | 47 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 …]
|