Home
last modified time | relevance | path

Searched refs:KPRINT (Results 1 – 25 of 336) sorted by relevance

12345678910>>...14

/dports/math/slatec/
H A Dcchke3.f2 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 Dschke3.f2 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 Ddchke3.f2 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 Dschke2.f2 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 Ddchke2.f2 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 Dcchke2.f2 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 Ddpchq3.f2 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 Ddeverk.f2 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 Deverck.f2 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 Dpchqk3.f2 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 Dtest23.f66 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 Ddavnts.f2 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 Dpfitqx.f2 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 Ddpfitt.f2 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 Ddqc36j.f90 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 Davntst.f2 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 Dsnls1q.f2 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 Ddnls1q.f2 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 Ddnsqqk.f2 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 Dqc36j.f2 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 Dsnsqqk.f2 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 Ddqg8ts.f2 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 Dsnls1e.f116 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 Dpchips.f19 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 Dfcnpak.f39 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 …]

12345678910>>...14