Home
last modified time | relevance | path

Searched refs:NVAL (Results 101 – 125 of 3204) sorted by relevance

12345678910>>...129

/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/
H A Dzchkrfp.f144 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 Dzchkrfp.f141 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 Dcchkrfp.f141 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 Ddchkrfp.f140 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 Dcchkrfp.f144 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 Dzchkrfp.f144 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 Dschkrfp.f142 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 Dchnbcol.f1 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 Dpsstebz.f1061 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 Dpdstebz.f1073 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 Ddlaeig.f16 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 Ddlaeig.f16 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 Ddlaebz.f317 $ 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 Ddlaebz.f317 $ 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 Ddlaebz.f2 $ 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 Ddlaebz.f317 $ 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 Ddlaebz.f317 $ 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 Ddlaebz.f319 $ 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 Ddlaebz.f2 $ 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 Ddlaebz.f319 $ 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 Ddlaebz.f319 $ 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 Ddlaebz.f319 $ 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 Ddlaebz.f317 $ 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 Ddlaebz.f319 $ 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 Dperiodic_table.f33 . 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

12345678910>>...129