Home
last modified time | relevance | path

Searched refs:MVAL (Results 1 – 25 of 1431) sorted by relevance

12345678910>>...58

/dports/math/slatec/src/
H A Ddbolsm.f526 MVAL = 0
664 MVAL = IOPT(LP+3)
668 IF (MVAL.LT.0 .OR. MVAL.GT.MINPUT .OR. WT.LE.ZERO) THEN
706 MROWS = NCOLS + MVAL + 1
858 IF (MVAL.LE.NSETB) THEN
860 CL2 = ABS(WT)*DNRM2(NSETB-MVAL,W(INEXT(MVAL),JBIG),1)
868 CL3 = ABS(WT)*DNRM2(MROWS-MVAL,W(INEXT(MVAL),JBIG),1)
905 IF (MVAL.GE.NSETB .AND. MVAL.LT.MROWS) THEN
907 W(MVAL+1,NSETB) = ZERO
1108 IF (I.EQ.MVAL) THEN
[all …]
H A Dsbolsm.f523 MVAL = 0
661 MVAL = IOPT(LP+3)
665 IF (MVAL.LT.0 .OR. MVAL.GT.MINPUT .OR. WT.LE.ZERO) THEN
703 MROWS = NCOLS + MVAL + 1
855 IF (MVAL.LE.NSETB) THEN
857 CL2 = ABS(WT)*SNRM2(NSETB-MVAL,W(INEXT(MVAL),JBIG),1)
865 CL3 = ABS(WT)*SNRM2(MROWS-MVAL,W(INEXT(MVAL),JBIG),1)
902 IF (MVAL.GE.NSETB .AND. MVAL.LT.MROWS) THEN
904 W(MVAL+1,NSETB) = ZERO
1105 IF (I.EQ.MVAL) THEN
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/LIN/
H A Ddtimaa.f147 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ),
212 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
213 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
220 MAXM = MAX( MVAL( I ), MAXM )
221 IF( MVAL( I ).GT.NMAXB ) THEN
222 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
439 CALL DTIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
493 CALL DTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
499 CALL DTIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
646 CALL DTIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
H A Dstimaa.f147 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ),
212 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
213 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
220 MAXM = MAX( MVAL( I ), MAXM )
221 IF( MVAL( I ).GT.NMAXB ) THEN
222 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
439 CALL STIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
493 CALL STIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
499 CALL STIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
646 CALL STIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
H A Dctimaa.f149 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ),
216 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
217 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
224 MAXM = MAX( MVAL( I ), MAXM )
225 IF( MVAL( I ).GT.NMAXB ) THEN
226 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
443 CALL CTIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
497 CALL CTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
503 CALL CTIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
664 CALL CTIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
H A Dztimaa.f149 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ),
216 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
217 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
224 MAXM = MAX( MVAL( I ), MAXM )
225 IF( MVAL( I ).GT.NMAXB ) THEN
226 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
443 CALL ZTIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
497 CALL ZTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
503 CALL ZTIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
664 CALL ZTIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
/dports/math/openblas/TIMING/LIN/
H A Dstimaa.f147 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ), variable
212 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
213 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
220 MAXM = MAX( MVAL( I ), MAXM )
221 IF( MVAL( I ).GT.NMAXB ) THEN
222 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
439 CALL STIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
493 CALL STIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
499 CALL STIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
646 CALL STIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
H A Ddtimaa.f147 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ), variable
212 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
213 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
220 MAXM = MAX( MVAL( I ), MAXM )
221 IF( MVAL( I ).GT.NMAXB ) THEN
222 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
439 CALL DTIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
493 CALL DTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
499 CALL DTIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
646 CALL DTIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
H A Dctimaa.f149 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ),
216 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
217 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
224 MAXM = MAX( MVAL( I ), MAXM )
225 IF( MVAL( I ).GT.NMAXB ) THEN
226 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
443 CALL CTIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
497 CALL CTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
503 CALL CTIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
664 CALL CTIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
H A Dztimaa.f149 $ LDAVAL( MXNLDA ), MVAL( MAXVAL ), variable
216 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
217 WRITE( NOUT, FMT = 9991 )'M: ', ( MVAL( I ), I = 1, NM )
224 MAXM = MAX( MVAL( I ), MAXM )
225 IF( MVAL( I ).GT.NMAXB ) THEN
226 WRITE( NOUT, FMT = 9997 )'M', MVAL( I ), NMAXB
443 CALL ZTIMB2( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NNB, NBVAL,
497 CALL ZTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN,
503 CALL ZTIMQ3( LINE, NM, MVAL, NVAL, NNB, NBVAL, NXVAL, NLDA,
664 CALL ZTIMTB( LINE, NM, MVAL, NN, NVAL, NK, KVAL, NLDA,
[all …]
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/
H A Dzchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
164 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
166 IF( MVAL( I ).LT.0 ) THEN
167 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
169 ELSE IF( MVAL( I ).GT.NMAX ) THEN
170 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
175 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
301 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
H A Ddchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
163 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
165 IF( MVAL( I ).LT.0 ) THEN
166 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
168 ELSE IF( MVAL( I ).GT.NMAX ) THEN
169 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
174 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
300 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
/dports/math/blas/lapack-3.10.0/TESTING/LIN/
H A Dzchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN ) variable
164 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
166 IF( MVAL( I ).LT.0 ) THEN
167 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
169 ELSE IF( MVAL( I ).GT.NMAX ) THEN
170 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
175 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
301 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
H A Ddchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
163 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
165 IF( MVAL( I ).LT.0 ) THEN
166 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
168 ELSE IF( MVAL( I ).GT.NMAX ) THEN
169 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
174 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
300 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/
H A Ddchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN ) variable
163 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
165 IF( MVAL( I ).LT.0 ) THEN
166 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
168 ELSE IF( MVAL( I ).GT.NMAX ) THEN
169 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
174 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
300 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
H A Dzchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN ) variable
164 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
166 IF( MVAL( I ).LT.0 ) THEN
167 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
169 ELSE IF( MVAL( I ).GT.NMAX ) THEN
170 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
175 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
301 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/
H A Ddchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
163 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
165 IF( MVAL( I ).LT.0 ) THEN
166 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
168 ELSE IF( MVAL( I ).GT.NMAX ) THEN
169 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
174 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
300 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
H A Dzchkab.f109 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
164 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
166 IF( MVAL( I ).LT.0 ) THEN
167 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
169 ELSE IF( MVAL( I ).GT.NMAX ) THEN
170 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
175 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
301 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
321 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/
H A Dzchkab.f112 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN ) variable
167 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
169 IF( MVAL( I ).LT.0 ) THEN
170 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
172 ELSE IF( MVAL( I ).GT.NMAX ) THEN
173 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
178 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
304 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
324 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
H A Ddchkab.f112 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN ) variable
166 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
168 IF( MVAL( I ).LT.0 ) THEN
169 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
171 ELSE IF( MVAL( I ).GT.NMAX ) THEN
172 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
177 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
303 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
324 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/
H A Dzchkab.f112 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
170 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
172 IF( MVAL( I ).LT.0 ) THEN
173 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
175 ELSE IF( MVAL( I ).GT.NMAX ) THEN
176 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
181 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
307 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
327 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
H A Ddchkab.f112 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
169 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
171 IF( MVAL( I ).LT.0 ) THEN
172 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
174 ELSE IF( MVAL( I ).GT.NMAX ) THEN
175 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
180 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
306 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
327 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/
H A Dzchkab.f112 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
170 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
172 IF( MVAL( I ).LT.0 ) THEN
173 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
175 ELSE IF( MVAL( I ).GT.NMAX ) THEN
176 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
181 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
307 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
327 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
H A Ddchkab.f112 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN ) variable
169 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
171 IF( MVAL( I ).LT.0 ) THEN
172 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
174 ELSE IF( MVAL( I ).GT.NMAX ) THEN
175 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
180 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
306 CALL DDRVAB( DOTYPE, NM, MVAL, NNS,
327 CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/
H A Dzchkab.f112 INTEGER IWORK( NMAX ), MVAL( MAXIN ), NSVAL( MAXIN )
167 READ( NIN, FMT = * )( MVAL( I ), I = 1, NM )
169 IF( MVAL( I ).LT.0 ) THEN
170 WRITE( NOUT, FMT = 9996 )' M ', MVAL( I ), 0
172 ELSE IF( MVAL( I ).GT.NMAX ) THEN
173 WRITE( NOUT, FMT = 9995 )' M ', MVAL( I ), NMAX
178 $ WRITE( NOUT, FMT = 9993 )'M ', ( MVAL( I ), I = 1, NM )
304 CALL ZDRVAB( DOTYPE, NM, MVAL, NNS,
324 CALL ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL,

12345678910>>...58