/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/ |
H A D | zchkrfp.f | 144 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 146 IF( NVAL( I ).LT.0 ) THEN 147 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0 149 ELSE IF( NVAL( I ).GT.NMAX ) THEN 150 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX 155 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 239 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH, 248 CALL ZDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, 254 CALL ZDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF, 259 CALL ZDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/ |
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 …]
|
H A D | cchkrfp.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 CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH, 245 CALL CDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, 251 CALL CDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF, 256 CALL CDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, [all …]
|
H A D | dchkrfp.f | 140 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 142 IF( NVAL( I ).LT.0 ) THEN 143 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0 145 ELSE IF( NVAL( I ).GT.NMAX ) THEN 146 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX 151 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 235 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH, 244 CALL DDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, 250 CALL DDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF, 255 CALL DDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/ |
H A D | cchkrfp.f | 144 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 146 IF( NVAL( I ).LT.0 ) THEN 147 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0 149 ELSE IF( NVAL( I ).GT.NMAX ) THEN 150 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX 155 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 244 CALL CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH, 253 CALL CDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, 259 CALL CDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF, 264 CALL CDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, [all …]
|
H A D | zchkrfp.f | 144 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 146 IF( NVAL( I ).LT.0 ) THEN 147 WRITE( NOUT, FMT = 9996 )' M ', NVAL( I ), 0 149 ELSE IF( NVAL( I ).GT.NMAX ) THEN 150 WRITE( NOUT, FMT = 9995 )' M ', NVAL( I ), NMAX 155 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 244 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH, 253 CALL ZDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, 259 CALL ZDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF, 264 CALL ZDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, [all …]
|
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 ) 242 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH, 251 CALL SDRVRF1( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, 257 CALL SDRVRF2( NOUT, NN, NVAL, WORKA, NMAX, WORKARF, 262 CALL SDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, [all …]
|
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
H A D | chnbcol.f | 1 SUBROUTINE CHNBCOL(IVAL,NVAL,IDEB,ITABLE) argument 19 NVAL = 0 25 NVAL = I 29 IF (ITABLE.GT.2) NVAL = NBCOL(NVAL)
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | psstebz.f | 1061 LREQ = NVAL( K-1 ) 1062 RREQ = NVAL( K ) 1082 NVAL( L-1 ) = NVAL( K ) 1083 NVAL( L ) = NVAL( L-1 ) 1084 NVAL( K ) = NVAL( K-1 ) 1100 LREQ = NVAL( 1 ) 1101 RREQ = NVAL( 2 ) 1331 NVAL( K-1 ) = NVAL( J-1 ) 1333 ITMP1 = NVAL( K ) 1334 NVAL( K ) = NVAL( J ) [all …]
|
H A D | pdstebz.f | 1073 LREQ = NVAL( K-1 ) 1074 RREQ = NVAL( K ) 1094 NVAL( L-1 ) = NVAL( K ) 1095 NVAL( L ) = NVAL( L-1 ) 1096 NVAL( K ) = NVAL( K-1 ) 1112 LREQ = NVAL( 1 ) 1113 RREQ = NVAL( 2 ) 1347 NVAL( K-1 ) = NVAL( J-1 ) 1349 ITMP1 = NVAL( K ) 1350 NVAL( K ) = NVAL( J ) [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/laso/ |
H A D | dlaeig.f | 16 INTEGER I, M, NVAL 31 NVAL = NR - NL + 1 42 30 M = NVAL + 1 48 BOUND(1,NVAL + 2) = TMIN 50 IF(NR .EQ. N) BOUND(1,NVAL + 2) = TMAX
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/laso/ |
H A D | dlaeig.f | 16 INTEGER I, M, NVAL 31 NVAL = NR - NL + 1 42 30 M = NVAL + 1 48 BOUND(1,NVAL + 2) = TMIN 50 IF(NR .EQ. N) BOUND(1,NVAL + 2) = TMAX
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dlaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dlaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, argument 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) local 380 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 384 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 478 IF( ITMP1.LE.NVAL( JI ) ) THEN 482 IF( ITMP1.GE.NVAL( JI ) ) THEN 520 ITMP1 = NVAL( JI ) 521 NVAL( JI ) = NVAL( KFNEW ) 522 NVAL( KFNEW ) = ITMP1
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dlaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 380 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 384 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 478 IF( ITMP1.LE.NVAL( JI ) ) THEN 482 IF( ITMP1.GE.NVAL( JI ) ) THEN 520 ITMP1 = NVAL( JI ) 521 NVAL( JI ) = NVAL( KFNEW ) 522 NVAL( KFNEW ) = ITMP1
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dlaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, argument 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) local 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/science/elk/elk-7.2.42/src/LAPACK/ |
H A D | dlaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dlaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | periodic_table.f | 33 . N(0:LMAX), NVAL(0:5), Q(0:LMAX,0:ZMAX), ZCHNG(NCHNG) 85 CALL CNFIG (Z,NVAL) 94 IF (NVAL(L).GT.N(L)) THEN 97 QVAL(L) = Q(L,Z) + 2*(2*L+1)*(N(L)-NVAL(L)) 132 SUBROUTINE CNFIG( Z, NVAL ) argument 138 integer,intent(out):: NVAL(0:) ! Valence electrons for each L 152 NVAL(L)=L+1 157 NVAL(L)=NVAL(L)+1
|