/dports/math/slatec/ |
H A D | cchke3.f | 2 SUBROUTINE CCHKE3 (ISNUM, SRNAMT, NOUT, KPRINT, FATAL) argument 26 INTEGER ISNUM, KPRINT, NOUT 41 IF (KPRINT .LE. 2) THEN 51 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 55 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 59 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 63 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 67 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 71 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 75 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) [all …]
|
H A D | schke3.f | 2 SUBROUTINE SCHKE3 (ISNUM, SRNAMT, NOUT, KPRINT, FATAL) argument 27 INTEGER ISNUM, KPRINT, NOUT 41 IF (KPRINT .LE. 2) THEN 50 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 54 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 58 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 62 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 66 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 70 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 74 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) [all …]
|
H A D | dchke3.f | 2 SUBROUTINE DCHKE3 (ISNUM, SRNAMT, NOUT, KPRINT, FATAL) argument 28 INTEGER INFOT, KPRINT 39 IF (KPRINT .LE. 2) THEN 48 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 52 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 56 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 60 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 64 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 68 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 72 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) [all …]
|
H A D | schke2.f | 2 SUBROUTINE SCHKE2 (ISNUM, SRNAMT, NOUT, KPRINT, FATAL) argument 25 INTEGER ISNUM, KPRINT, NOUT 40 IF (KPRINT .LE. 2) THEN 51 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 55 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 59 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 63 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 67 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 71 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 76 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) [all …]
|
H A D | dchke2.f | 2 SUBROUTINE DCHKE2 (ISNUM, SRNAMT, NOUT, KPRINT, FATAL) argument 27 INTEGER INFOT, KPRINT 39 IF (KPRINT .LE. 2) THEN 50 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 54 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 58 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 62 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 66 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 70 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 75 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) [all …]
|
H A D | cchke2.f | 2 SUBROUTINE CCHKE2 (ISNUM, SRNAMT, NOUT, KPRINT, FATAL) argument 26 INTEGER ISNUM, KPRINT, NOUT 42 IF (KPRINT .LE. 2) THEN 53 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 57 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 61 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 65 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 69 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 73 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) 78 CALL CHKXER( SRNAMT, INFOT, NOUT, FATAL, KPRINT ) [all …]
|
H A D | dpchq3.f | 2 SUBROUTINE DPCHQ3 (LUN, KPRINT, IPASS) argument 79 INTEGER LUN, KPRINT, IPASS 116 IF (KPRINT .GE. 3) WRITE (LUN, 1000) 117 IF (KPRINT .GE. 2) WRITE (LUN, 1001) 125 IF (KPRINT .GE. 3) THEN 168 IF (KPRINT.GE.3) 204 IF (KPRINT.GE.3) 250 IF (KPRINT.GE.3) 285 IF (KPRINT.GE.3) 302 IF (KPRINT.GE.2) WRITE(LUN,99998) [all …]
|
H A D | deverk.f | 2 SUBROUTINE DEVERK (LOUT, KPRINT, FAIL) argument 42 INTEGER LOUT, KPRINT 58 IF (KPRINT .LE. 2) THEN 64 IF (KPRINT .GE. 3) WRITE (LOUT, 2000) 65 IF (KPRINT .GE. 2) WRITE (LOUT, 5000) 69 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -1 74 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -2 79 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -1 84 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -2 137 IF (KPRINT .GT. 2) CALL XERDMP [all …]
|
H A D | everck.f | 2 SUBROUTINE EVERCK (LOUT, KPRINT, FAIL) argument 43 INTEGER LOUT, KPRINT 59 IF (KPRINT .LE. 2) THEN 65 IF (KPRINT .GE. 3) WRITE (LOUT, 2000) 66 IF (KPRINT .GE. 2) WRITE (LOUT, 5000) 70 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -1 75 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -2 80 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -1 85 IF (KPRINT .GE. 3) WRITE (LOUT, 5001) -2 138 IF (KPRINT .GT. 2) CALL XERDMP [all …]
|
H A D | pchqk3.f | 2 SUBROUTINE PCHQK3 (LUN, KPRINT, IPASS) argument 78 INTEGER LUN, KPRINT, IPASS 115 IF (KPRINT .GE. 3) WRITE (LUN, 1000) 116 IF (KPRINT .GE. 2) WRITE (LUN, 1001) 124 IF (KPRINT .GE. 3) THEN 167 IF (KPRINT.GE.3) 203 IF (KPRINT.GE.3) 249 IF (KPRINT.GE.3) 284 IF (KPRINT.GE.3) 301 IF (KPRINT.GE.2) WRITE(LUN,99998) [all …]
|
H A D | test23.f | 66 READ (LIN, '(I1)') KPRINT 69 IF (KPRINT .LE. 1) THEN 77 CALL CGECK(LUN,KPRINT,NERR) 79 CALL CGBQC(LUN,KPRINT,NERR) 81 CALL CPOQC(LUN,KPRINT,NERR) 83 CALL CPPQC(LUN,KPRINT,NERR) 85 CALL CPBQC(LUN,KPRINT,NERR) 87 CALL CSIQC(LUN,KPRINT,NERR) 89 CALL CSPQC(LUN,KPRINT,NERR) 91 CALL CHIQC(LUN,KPRINT,NERR) [all …]
|
H A D | davnts.f | 2 SUBROUTINE DAVNTS (LUN, KPRINT, IPASS) argument 20 INTEGER I, IERR, IPASS, KPRINT, LUN, N 25 IF (KPRINT .GE. 2) WRITE (LUN,9000) 72 IF (KPRINT .GE. 2) THEN 83 IF (KPRINT .LE. 2) THEN 91 IF (KPRINT .GE. 3) THEN 121 IF (KPRINT .GE. 3) WRITE (LUN,9070) 136 IF (KPRINT .GE. 3) WRITE (LUN,9070) 153 IF (KPRINT .GE. 3) WRITE (LUN,9070) 178 IF (KPRINT .GE. 2) THEN [all …]
|
H A D | pfitqx.f | 2 SUBROUTINE PFITQX (LUN, KPRINT, IPASS) argument 25 INTEGER IPASS, KPRINT, LUN 80 IF (KPRINT .EQ. 0) GO TO 130 104 IF (KPRINT .EQ. 0) GO TO 150 131 IF (KPRINT .EQ. 0) GO TO 170 157 IF (KPRINT .EQ. 0) GO TO 190 177 IF (KPRINT .LE. 2) THEN 192 IF (KPRINT .GE. 3) THEN 196 IF (KPRINT .GE. 2) THEN 203 IF (KPRINT .EQ. 0) GO TO 210 [all …]
|
H A D | dpfitt.f | 2 SUBROUTINE DPFITT (LUN, KPRINT, IPASS) argument 27 INTEGER IPASS, KPRINT, LUN 82 IF (KPRINT .EQ. 0) GO TO 130 106 IF (KPRINT .EQ. 0) GO TO 150 133 IF (KPRINT .EQ. 0) GO TO 170 159 IF (KPRINT .EQ. 0) GO TO 190 179 IF (KPRINT .LE. 2) THEN 194 IF (KPRINT .GE. 3) THEN 198 IF (KPRINT .GE. 2) THEN 205 IF (KPRINT .EQ. 0) GO TO 210 [all …]
|
H A D | dqc36j.f | 90 IF(KPRINT.GE.2)THEN 144 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS1.EQ.0))THEN 170 IF(KPRINT.GE.1)THEN 175 IF(KPRINT.GE.2)THEN 198 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS2.EQ.0))THEN 224 IF(KPRINT.GE.1)THEN 229 IF(KPRINT.GE.2)THEN 253 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS3.EQ.0))THEN 273 IF(KPRINT.GE.1)THEN 301 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS4.EQ.0))THEN [all …]
|
H A D | avntst.f | 2 SUBROUTINE AVNTST (LUN, KPRINT, IPASS) argument 22 IF (KPRINT .GE. 2) WRITE (LUN,9000) 69 IF (KPRINT .GE. 2) THEN 80 IF (KPRINT .LE. 2) THEN 88 IF (KPRINT .GE. 3) THEN 118 IF (KPRINT .GE. 3) WRITE (LUN,9070) 133 IF (KPRINT .GE. 3) WRITE (LUN,9070) 150 IF (KPRINT .GE. 3) WRITE (LUN,9070) 167 IF (KPRINT .GE. 3) WRITE (LUN,9070) 175 IF (KPRINT .GE. 2) THEN [all …]
|
H A D | snls1q.f | 2 SUBROUTINE SNLS1Q (LUN, KPRINT, IPASS) argument 25 INTEGER IPASS, KPRINT, LUN 77 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 113 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 132 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 168 IF ((FATAL .AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 188 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 224 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 230 IF (KPRINT .LE. 2) THEN 258 IF (KPRINT .GE. 2) THEN [all …]
|
H A D | dnls1q.f | 2 SUBROUTINE DNLS1Q (LUN, KPRINT, IPASS) argument 25 INTEGER IPASS, KPRINT, LUN 78 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 114 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 133 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 169 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 189 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 225 IF ((FATAL.AND.KPRINT.GE.2) .OR. KPRINT.GE.3) 231 IF (KPRINT .LE. 2) THEN 259 IF (KPRINT .GE. 2) THEN [all …]
|
H A D | dnsqqk.f | 2 SUBROUTINE DNSQQK (LUN, KPRINT, IPASS) argument 22 INTEGER IPASS, KPRINT, LUN 43 IF (KPRINT .GE. 2) WRITE (LUN,9000) 56 IF (KPRINT .NE. 0) THEN 57 IF ((KPRINT.GE.2 .AND. ITEST(ICNT).NE.1) .OR. KPRINT.GE.3) 59 IF ((KPRINT.GE.2) .OR. (KPRINT.EQ.1 .AND. ITEST(ICNT).NE.1)) 74 IF (KPRINT .NE. 0) THEN 75 IF (KPRINT.GE.3 .OR. (KPRINT.GE.2.AND.ITEST(ICNT).NE.1)) 77 IF (KPRINT.GE.2 .OR. (KPRINT.EQ.1.AND.ITEST(ICNT).NE.1)) 91 IF (KPRINT.GE.2 .OR. (KPRINT.EQ.1.AND.ITEST(ICNT).NE.1)) [all …]
|
H A D | qc36j.f | 2 SUBROUTINE QC36J (LUN, KPRINT, IPASS) argument 89 IF(KPRINT.GE.2)THEN 143 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS1.EQ.0))THEN 169 IF(KPRINT.GE.1)THEN 174 IF(KPRINT.GE.2)THEN 197 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS2.EQ.0))THEN 223 IF(KPRINT.GE.1)THEN 228 IF(KPRINT.GE.2)THEN 252 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS3.EQ.0))THEN 300 IF(KPRINT.GE.3 .OR. (KPRINT.EQ.2.AND.IPASS4.EQ.0))THEN [all …]
|
H A D | snsqqk.f | 2 SUBROUTINE SNSQQK (LUN, KPRINT, IPASS) argument 23 INTEGER IPASS, KPRINT, LUN 44 IF (KPRINT .GE. 2) WRITE (LUN,9000) 57 IF (KPRINT .NE. 0) THEN 58 IF ((KPRINT.GE.2 .AND. ITEST(ICNT).NE.1) .OR. KPRINT.GE.3) 60 IF ((KPRINT.GE.2) .OR. (KPRINT.EQ.1 .AND. ITEST(ICNT).NE.1)) 75 IF (KPRINT .NE. 0) THEN 76 IF (KPRINT.GE.3 .OR. (KPRINT.GE.2.AND.ITEST(ICNT).NE.1)) 78 IF (KPRINT.GE.2 .OR. (KPRINT.EQ.1.AND.ITEST(ICNT).NE.1)) 92 IF (KPRINT.GE.2 .OR. (KPRINT.EQ.1.AND.ITEST(ICNT).NE.1)) [all …]
|
H A D | dqg8ts.f | 2 SUBROUTINE DQG8TS (LUN, KPRINT, IPASS) argument 20 INTEGER IPASS, KPRINT, LUN 48 IF (KPRINT .GE. 3) 52 IF (KPRINT .GE. 2) 64 IF (KPRINT .GE. 3) 68 IF (KPRINT .GE. 2) 75 IF (KPRINT .LE. 2) THEN 96 IF (KPRINT .GE. 3) 99 IF (KPRINT .GE. 2) 126 IF (KPRINT .GE. 2) THEN [all …]
|
/dports/math/cmlib/cmlib-3.0_8/test/ |
H A D | snls1e.f | 116 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) 118 IF((KPRINT.GE.2).OR.(KPRINT.EQ.1.AND.ITEST(ICNT).NE.1))CALL PASS 148 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) 150 IF((KPRINT.GE.2).OR.(KPRINT.EQ.1.AND.ITEST(ICNT).NE.1))CALL PASS 165 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) 197 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) 215 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) 247 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) 311 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) 325 IF ((KPRINT.GE.2.AND.ITEST(ICNT).NE.1).OR.KPRINT.GE.3) [all …]
|
H A D | pchips.f | 19 READ(LIN,1) KPRINT 25 CALL PCHQK1(KPRINT,IPAS) 29 CALL PCHQK2(KPRINT,IPAS) 101 IF(KPRINT.GT.1) 444 INTEGER LUN, KPRINT 540 IF (KPRINT .EQ. 3) 594 IF ((KPRINT.EQ.3) .OR. (FAILD.AND.(KPRINT.EQ.2)) ) 597 IF ((KPRINT.EQ.3) .OR. (FAILE.AND.(KPRINT.EQ.2)) ) 688 IF ((KPRINT.EQ.3) .OR. (FAILD.AND.(KPRINT.EQ.2)) ) 691 IF ((KPRINT.EQ.3) .OR. (FAILE.AND.(KPRINT.EQ.2)) ) [all …]
|
H A D | fcnpak.f | 39 READ(LIN,1) KPRINT,TIMES 46 CALL FCNQX1(KPRINT,IPASS) 74 INTEGER KPRINT,IPASS local 141 IF(KPRINT.GT.2) THEN 201 IF(KPRINT.GT.2) THEN 234 85 IF (KPRINT.GT.2) THEN 337 INTEGER KPRINT,IPASS local 408 IF(KPRINT.GT.2) THEN 419 IF(KPRINT.GT.2) THEN 468 IF(KPRINT.GT.2) THEN [all …]
|