/dports/math/slatec/src/ |
H A D | dbolsm.f | 526 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 D | sbolsm.f | 523 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 D | dtimaa.f | 147 $ 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 D | stimaa.f | 147 $ 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 D | ctimaa.f | 149 $ 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 D | ztimaa.f | 149 $ 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 D | stimaa.f | 147 $ 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 D | dtimaa.f | 147 $ 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 D | ctimaa.f | 149 $ 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 D | ztimaa.f | 149 $ 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 D | zchkab.f | 109 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 D | dchkab.f | 109 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 D | zchkab.f | 109 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 D | dchkab.f | 109 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 D | dchkab.f | 109 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 D | zchkab.f | 109 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 D | dchkab.f | 109 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 D | zchkab.f | 109 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 D | zchkab.f | 112 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 D | dchkab.f | 112 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 D | zchkab.f | 112 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 D | dchkab.f | 112 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 D | zchkab.f | 112 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 D | dchkab.f | 112 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 D | zchkab.f | 112 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,
|