/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | sget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | zget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | cget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | cget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | zget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | dget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | sget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | sget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | zget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | dget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | cget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | zget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | sget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | cget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 298 IF( V.GT.SEPIN ) THEN 301 TOLIN = V / SEPIN 330 IF( V.GT.SEPIN*SIN ) THEN 331 TOLIN = SEPIN 381 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 383 ELSE IF( SEPIN.GT.SEPTMP ) THEN 384 VMAX = SEPIN / SEPTMP 385 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 387 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | dget38.f | 180 READ( NIN, FMT = * )SIN, SEPIN 290 IF( V.GT.SEPIN ) THEN 293 TOLIN = V / SEPIN 322 IF( V.GT.SEPIN*SIN ) THEN 323 TOLIN = SEPIN 373 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 375 ELSE IF( SEPIN.GT.SEPTMP ) THEN 376 VMAX = SEPIN / SEPTMP 377 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 379 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/ |
H A D | dget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 293 IF( V.GT.SEPIN ) THEN 296 TOLIN = V / SEPIN 325 IF( V.GT.SEPIN*SIN ) THEN 326 TOLIN = SEPIN 376 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 378 ELSE IF( SEPIN.GT.SEPTMP ) THEN 379 VMAX = SEPIN / SEPTMP 380 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 382 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | zget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 301 IF( V.GT.SEPIN ) THEN 304 TOLIN = V / SEPIN 333 IF( V.GT.SEPIN*SIN ) THEN 334 TOLIN = SEPIN 384 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 386 ELSE IF( SEPIN.GT.SEPTMP ) THEN 387 VMAX = SEPIN / SEPTMP 388 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 390 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | dget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 293 IF( V.GT.SEPIN ) THEN 296 TOLIN = V / SEPIN 325 IF( V.GT.SEPIN*SIN ) THEN 326 TOLIN = SEPIN 376 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 378 ELSE IF( SEPIN.GT.SEPTMP ) THEN 379 VMAX = SEPIN / SEPTMP 380 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 382 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | cget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 301 IF( V.GT.SEPIN ) THEN 304 TOLIN = V / SEPIN 333 IF( V.GT.SEPIN*SIN ) THEN 334 TOLIN = SEPIN 384 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 386 ELSE IF( SEPIN.GT.SEPTMP ) THEN 387 VMAX = SEPIN / SEPTMP 388 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 390 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | sget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 293 IF( V.GT.SEPIN ) THEN 296 TOLIN = V / SEPIN 325 IF( V.GT.SEPIN*SIN ) THEN 326 TOLIN = SEPIN 376 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 378 ELSE IF( SEPIN.GT.SEPTMP ) THEN 379 VMAX = SEPIN / SEPTMP 380 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 382 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | dget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 293 IF( V.GT.SEPIN ) THEN 296 TOLIN = V / SEPIN 325 IF( V.GT.SEPIN*SIN ) THEN 326 TOLIN = SEPIN 376 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 378 ELSE IF( SEPIN.GT.SEPTMP ) THEN 379 VMAX = SEPIN / SEPTMP 380 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 382 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | cget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 301 IF( V.GT.SEPIN ) THEN 304 TOLIN = V / SEPIN 333 IF( V.GT.SEPIN*SIN ) THEN 334 TOLIN = SEPIN 384 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 386 ELSE IF( SEPIN.GT.SEPTMP ) THEN 387 VMAX = SEPIN / SEPTMP 388 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 390 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | sget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 293 IF( V.GT.SEPIN ) THEN 296 TOLIN = V / SEPIN 325 IF( V.GT.SEPIN*SIN ) THEN 326 TOLIN = SEPIN 376 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 378 ELSE IF( SEPIN.GT.SEPTMP ) THEN 379 VMAX = SEPIN / SEPTMP 380 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 382 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|
H A D | zget38.f | 183 READ( NIN, FMT = * )SIN, SEPIN 301 IF( V.GT.SEPIN ) THEN 304 TOLIN = V / SEPIN 333 IF( V.GT.SEPIN*SIN ) THEN 334 TOLIN = SEPIN 384 ELSE IF( EPS*SEPIN.GT.SEPTMP ) THEN 386 ELSE IF( SEPIN.GT.SEPTMP ) THEN 387 VMAX = SEPIN / SEPTMP 388 ELSE IF( SEPIN.LT.EPS*SEPTMP ) THEN 390 ELSE IF( SEPIN.LT.SEPTMP ) THEN [all …]
|