Home
last modified time | relevance | path

Searched refs:NVAL (Results 51 – 75 of 3204) sorted by relevance

12345678910>>...129

/dports/math/lapack95/LAPACK95/TESTING/
H A Dla_cchkaa.f108 $ NSVAL( MAXIN ), NVAL( MAXIN ), NXVAL( MAXIN )
193 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
195 IF( NVAL( I ).LT.0 ) THEN
196 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0
198 ELSE IF( NVAL( I ).GT.NMAX ) THEN
199 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX
204 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
420 CALL CDRVGB( DOTYPE, NN, NVAL, NNRHS, THRESH, TSTERR,
451 CALL CDRVGT( DOTYPE, NN, NVAL, NNRHS, THRESH, TSTERR,
467 CALL CCHKPO( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS, NSVAL,
[all …]
H A Dla_schkaa.f106 $ NSVAL( MAXIN ), NVAL( MAXIN ), NXVAL( MAXIN )
191 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
193 IF( NVAL( I ).LT.0 ) THEN
194 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0
196 ELSE IF( NVAL( I ).GT.NMAX ) THEN
197 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX
202 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
420 CALL SDRVGB( DOTYPE, NN, NVAL, NNRHS, THRESH, TSTERR,
451 CALL SDRVGT( DOTYPE, NN, NVAL, NNRHS, THRESH, TSTERR,
467 CALL SCHKPO( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS, NSVAL,
[all …]
H A Dla_dchkaa.f107 $ NSVAL( MAXIN ), NVAL( MAXIN ), NXVAL( MAXIN )
192 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
194 IF( NVAL( I ).LT.0 ) THEN
195 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0
197 ELSE IF( NVAL( I ).GT.NMAX ) THEN
198 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX
203 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
414 CALL DDRVGB( DOTYPE, NN, NVAL, NNRHS, THRESH, TSTERR,
445 CALL DDRVGT( DOTYPE, NN, NVAL, NNRHS, THRESH, TSTERR,
461 CALL DCHKPO( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS, NSVAL,
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/
H A Ddchkaa.f234 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
236 IF( NVAL( I ).LT.0 ) THEN
237 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0
239 ELSE IF( NVAL( I ).GT.NMAX ) THEN
240 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX
245 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
469 CALL DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
493 CALL DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
534 CALL DCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK,
608 CALL DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
[all …]
H A Dschkaa.f234 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
236 IF( NVAL( I ).LT.0 ) THEN
237 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0
239 ELSE IF( NVAL( I ).GT.NMAX ) THEN
240 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX
245 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
469 CALL SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
493 CALL SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
534 CALL SCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK,
608 CALL SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
[all …]
H A Ddchkrfp.f143 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
145 IF( NVAL( I ).LT.0 ) THEN
146 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
148 ELSE IF( NVAL( I ).GT.NMAX ) THEN
149 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
154 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
243 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
252 CALL DDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
258 CALL DDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
263 CALL DDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/LIN/
H A Dztimb2.f401 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
457 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
569 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
622 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
679 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
737 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
917 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
973 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
1135 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1190 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
[all …]
H A Dctimb2.f401 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
457 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
569 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
622 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
679 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
737 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
917 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
973 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
1135 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1190 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
[all …]
H A Dstimb2.f17 $ NVAL( * )
398 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
512 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
570 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
629 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
812 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
869 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
980 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1037 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1092 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
[all …]
H A Ddtimb2.f17 $ NVAL( * )
398 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
512 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
570 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
629 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
812 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
869 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
980 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1037 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1092 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
[all …]
/dports/math/openblas/TIMING/LIN/
H A Dctimb2.f401 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
457 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
569 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
622 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
679 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
737 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
917 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
973 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
1135 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1190 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
[all …]
H A Dztimb2.f401 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
457 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
569 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
622 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
679 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
737 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
917 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
973 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
1135 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1190 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
[all …]
H A Dstimb2.f17 $ NVAL( * ) local
398 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
512 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
570 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
629 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
812 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
869 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
980 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1037 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1092 CALL SPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
[all …]
H A Ddtimb2.f17 $ NVAL( * ) local
398 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
512 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
570 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
629 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
812 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
869 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC,
980 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1037 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC*NLDA,
1092 CALL DPRTBL( ' ', 'N', 1, NVAL, NN, NVAL, NINC, RESLTS,
[all …]
/dports/misc/libemos/libemos-4.5.9-Source/gribex/
H A Dreclen.F57 NVAL = 4
61 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
66 CALL GBYTES (BLOCK(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
67 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
77 NVAL = 20
80 NVAL = 16
86 CALL GBYTES (BLOCK(IWORD),IBLOCK(5),IOFF,IBYTE,0,NVAL)
87 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/laso/
H A Ddlabcm.f40 NVAL = NR - NL + 1
42 DO 5 I = 1, NVAL
49 SIGMA = BOUND(2,NVAL+1)
50 DO 400 J = 1, NVAL
112 DO 60 I = J, NVAL
129 200 DO 210 I = J, NVAL
132 I = NVAL + 1
153 DO 230 I = J, NVAL
158 IF(NUML .LT. NVAL + 1) BOUND(1,NVAL+2) = DMAX1(SIGMA,
159 1 BOUND(1,NVAL+2))
[all …]
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/laso/
H A Ddlabcm.f40 NVAL = NR - NL + 1
42 DO 5 I = 1, NVAL
49 SIGMA = BOUND(2,NVAL+1)
50 DO 400 J = 1, NVAL
112 DO 60 I = J, NVAL
129 200 DO 210 I = J, NVAL
132 I = NVAL + 1
153 DO 230 I = J, NVAL
158 IF(NUML .LT. NVAL + 1) BOUND(1,NVAL+2) = DMAX1(SIGMA,
159 1 BOUND(1,NVAL+2))
[all …]
/dports/math/blas/lapack-3.10.0/TESTING/LIN/
H A Dschkrfp.f139 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
141 IF( NVAL( I ).LT.0 ) THEN
142 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
144 ELSE IF( NVAL( I ).GT.NMAX ) THEN
145 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
150 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
243 CALL SDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
249 CALL SDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
254 CALL SDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/
H A Dschkrfp.f139 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
141 IF( NVAL( I ).LT.0 ) THEN
142 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
144 ELSE IF( NVAL( I ).GT.NMAX ) THEN
145 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
150 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
243 CALL SDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
249 CALL SDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
254 CALL SDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/
H A Dschkrfp.f139 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
141 IF( NVAL( I ).LT.0 ) THEN
142 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
144 ELSE IF( NVAL( I ).GT.NMAX ) THEN
145 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
150 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
243 CALL SDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
249 CALL SDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
254 CALL SDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/
H A Dschkrfp.f142 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
144 IF( NVAL( I ).LT.0 ) THEN
145 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
147 ELSE IF( NVAL( I ).GT.NMAX ) THEN
148 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
153 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
237 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
246 CALL SDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
252 CALL SDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
257 CALL SDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/
H A Dschkrfp.f139 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
141 IF( NVAL( I ).LT.0 ) THEN
142 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
144 ELSE IF( NVAL( I ).GT.NMAX ) THEN
145 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
150 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
243 CALL SDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
249 CALL SDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
254 CALL SDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/
H A Dschkrfp.f139 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
141 IF( NVAL( I ).LT.0 ) THEN
142 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
144 ELSE IF( NVAL( I ).GT.NMAX ) THEN
145 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
150 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
243 CALL SDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
249 CALL SDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
254 CALL SDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
H A Dzchkrfp.f141 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN )
143 IF( NVAL( I ).LT.0 ) THEN
144 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0
146 ELSE IF( NVAL( I ).GT.NMAX ) THEN
147 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX
152 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN )
236 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
245 CALL ZDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
251 CALL ZDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF,
256 CALL ZDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF,
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/cluster/
H A Dmmfit.f1 SUBROUTINE MMFIT(M, VAR, K, MT, NVAL, DMIWRK, IWORK, IERR, OUNIT) argument
71 IF(VAR(I).LT.1..OR.VAR(I).GT.NVAL) THEN
84 DO 30 J=1,NVAL
91 DO 50 J=1,NVAL
93 DO 60 J=1,NVAL
98 DO 70 J=1,NVAL
108 DO 90 J=1,NVAL

12345678910>>...129