/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_cchkaa.f | 108 $ 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 D | la_schkaa.f | 106 $ 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 D | la_dchkaa.f | 107 $ 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 D | dchkaa.f | 234 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 D | schkaa.f | 234 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 D | dchkrfp.f | 143 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 D | ztimb2.f | 401 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 D | ctimb2.f | 401 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 D | stimb2.f | 17 $ 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 D | dtimb2.f | 17 $ 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 D | ctimb2.f | 401 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 D | ztimb2.f | 401 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 D | stimb2.f | 17 $ 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 D | dtimb2.f | 17 $ 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 D | reclen.F | 57 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 D | dlabcm.f | 40 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 D | dlabcm.f | 40 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 D | schkrfp.f | 139 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 D | schkrfp.f | 139 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 D | schkrfp.f | 139 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 D | schkrfp.f | 142 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 D | schkrfp.f | 139 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 D | schkrfp.f | 139 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 D | zchkrfp.f | 141 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 D | mmfit.f | 1 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
|