Home
last modified time | relevance | path

Searched refs:NBLK (Results 1 – 25 of 130) sorted by relevance

123456

/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/
H A Dpzstein.f90423 NBLK = IBLOCK( NEXT )
424 IF( NBLK.EQ.IBLOCK( NEXT-1 ) .AND. NBLK.NE.OLNBLK ) THEN
428 IF( NBLK.EQ.1 ) THEN
431 B1 = ISPLIT( NBLK-1 ) + 1
433 BN = ISPLIT( NBLK )
441 OLNBLK = NBLK
482 IF( IBLOCK( I ).NE.NBLK ) THEN
483 NBLK = IBLOCK( I )
484 IF( NBLK.EQ.1 ) THEN
487 B1 = ISPLIT( NBLK-1 ) + 1
[all …]
H A Dpdstein.f90423 NBLK = IBLOCK( NEXT )
424 IF( NBLK.EQ.IBLOCK( NEXT-1 ) .AND. NBLK.NE.OLNBLK ) THEN
428 IF( NBLK.EQ.1 ) THEN
431 B1 = ISPLIT( NBLK-1 ) + 1
433 BN = ISPLIT( NBLK )
441 OLNBLK = NBLK
482 IF( IBLOCK( I ).NE.NBLK ) THEN
483 NBLK = IBLOCK( I )
484 IF( NBLK.EQ.1 ) THEN
487 B1 = ISPLIT( NBLK-1 ) + 1
[all …]
/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpcstein.f423 NBLK = IBLOCK( NEXT )
424 IF( NBLK.EQ.IBLOCK( NEXT-1 ) .AND. NBLK.NE.OLNBLK ) THEN
428 IF( NBLK.EQ.1 ) THEN
433 BN = ISPLIT( NBLK )
441 OLNBLK = NBLK
478 NBLK = 0
482 IF( IBLOCK( I ).NE.NBLK ) THEN
483 NBLK = IBLOCK( I )
484 IF( NBLK.EQ.1 ) THEN
487 B1 = ISPLIT( NBLK-1 ) + 1
[all …]
H A Dpdstein.f423 NBLK = IBLOCK( NEXT )
424 IF( NBLK.EQ.IBLOCK( NEXT-1 ) .AND. NBLK.NE.OLNBLK ) THEN
428 IF( NBLK.EQ.1 ) THEN
433 BN = ISPLIT( NBLK )
441 OLNBLK = NBLK
478 NBLK = 0
482 IF( IBLOCK( I ).NE.NBLK ) THEN
483 NBLK = IBLOCK( I )
484 IF( NBLK.EQ.1 ) THEN
487 B1 = ISPLIT( NBLK-1 ) + 1
[all …]
H A Dpzstein.f423 NBLK = IBLOCK( NEXT )
424 IF( NBLK.EQ.IBLOCK( NEXT-1 ) .AND. NBLK.NE.OLNBLK ) THEN
428 IF( NBLK.EQ.1 ) THEN
433 BN = ISPLIT( NBLK )
441 OLNBLK = NBLK
478 NBLK = 0
482 IF( IBLOCK( I ).NE.NBLK ) THEN
483 NBLK = IBLOCK( I )
484 IF( NBLK.EQ.1 ) THEN
487 B1 = ISPLIT( NBLK-1 ) + 1
[all …]
H A Dpsstein.f423 NBLK = IBLOCK( NEXT )
424 IF( NBLK.EQ.IBLOCK( NEXT-1 ) .AND. NBLK.NE.OLNBLK ) THEN
428 IF( NBLK.EQ.1 ) THEN
433 BN = ISPLIT( NBLK )
441 OLNBLK = NBLK
478 NBLK = 0
482 IF( IBLOCK( I ).NE.NBLK ) THEN
483 NBLK = IBLOCK( I )
484 IF( NBLK.EQ.1 ) THEN
487 B1 = ISPLIT( NBLK-1 ) + 1
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dab01nd.f2 $ NBLK, Z, LDZ, TAU, TOL, IWORK, DWORK, LDWORK, argument
221 INTEGER IWORK(*), NBLK(*) local
303 CALL MB01PD( 'Scale', 'G', N, N, 0, 0, ANORM, 0, NBLK, A, LDA,
305 CALL MB01PD( 'Scale', 'G', N, M, 0, 0, BNORM, 0, NBLK, B, LDB,
349 NBLK(INDCON) = RANK
431 NBLK(NBL) = N - NCONT
435 CALL MB01PD( 'Undo', 'H', N, N, 0, 0, ANORM, NBL, NBLK, A,
437 CALL MB01PD( 'Undo', 'G', NBLK(1), M, 0, 0, BNORM, 0, NBLK, B,
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/
H A Dprintpkg.F187 INTEGER NDIM(NBLK),BEGIN
209 DO 200 IBLK = 1,NBLK
225 WRITE (LUPRI,3000) NBLK
237 DO 100 IBLK = 1,NBLK
333 INTEGER NDIM(NBLK),BEGIN
373 DO 200 IBLK = 1,NBLK
382 WRITE (LUPRI,3000) NBLK
394 DO 100 IBLK = 1,NBLK
500 DO 200 IBLK = 1,NBLK
516 WRITE (LUPRI,3000) NBLK
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dcstein.f215 $ JBLK, JMAX, JR, NBLK, NRMCHK
298 DO 180 NBLK = 1, IBLOCK( M )
302 IF( NBLK.EQ.1 ) THEN
305 B1 = ISPLIT( NBLK-1 ) + 1
307 BN = ISPLIT( NBLK )
330 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dzstein.f215 $ JBLK, JMAX, JR, NBLK, NRMCHK
298 DO 180 NBLK = 1, IBLOCK( M )
302 IF( NBLK.EQ.1 ) THEN
305 B1 = ISPLIT( NBLK-1 ) + 1
307 BN = ISPLIT( NBLK )
330 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dsstein.f203 $ JBLK, JMAX, NBLK, NRMCHK
287 DO 160 NBLK = 1, IBLOCK( M )
291 IF( NBLK.EQ.1 ) THEN
294 B1 = ISPLIT( NBLK-1 ) + 1
296 BN = ISPLIT( NBLK )
319 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Ddstein.f203 $ JBLK, JMAX, NBLK, NRMCHK
287 DO 160 NBLK = 1, IBLOCK( M )
291 IF( NBLK.EQ.1 ) THEN
294 B1 = ISPLIT( NBLK-1 ) + 1
296 BN = ISPLIT( NBLK )
319 IF( IBLOCK( J ).NE.NBLK ) THEN
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dzstein.f212 $ JBLK, JMAX, JR, NBLK, NRMCHK
295 DO 180 NBLK = 1, IBLOCK( M )
299 IF( NBLK.EQ.1 ) THEN
302 B1 = ISPLIT( NBLK-1 ) + 1
304 BN = ISPLIT( NBLK )
327 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dcstein.f212 $ JBLK, JMAX, JR, NBLK, NRMCHK
295 DO 180 NBLK = 1, IBLOCK( M )
299 IF( NBLK.EQ.1 ) THEN
302 B1 = ISPLIT( NBLK-1 ) + 1
304 BN = ISPLIT( NBLK )
327 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Ddstein.f200 $ JBLK, JMAX, NBLK, NRMCHK
284 DO 160 NBLK = 1, IBLOCK( M )
288 IF( NBLK.EQ.1 ) THEN
291 B1 = ISPLIT( NBLK-1 ) + 1
293 BN = ISPLIT( NBLK )
316 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dsstein.f200 $ JBLK, JMAX, NBLK, NRMCHK
284 DO 160 NBLK = 1, IBLOCK( M )
288 IF( NBLK.EQ.1 ) THEN
291 B1 = ISPLIT( NBLK-1 ) + 1
293 BN = ISPLIT( NBLK )
316 IF( IBLOCK( J ).NE.NBLK ) THEN
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/
H A Ddstein.f121 $ JBLK, JMAX, NBLK, NRMCHK
209 DO 160 NBLK = 1, IBLOCK( M )
213 IF( NBLK.EQ.1 ) THEN
216 B1 = ISPLIT( NBLK-1 ) + 1
218 BN = ISPLIT( NBLK )
245 IF( IBLOCK( J ).NE.NBLK ) THEN
/dports/math/blas/lapack-3.10.0/SRC/
H A Ddstein.f200 $ JBLK, JMAX, NBLK, NRMCHK
284 DO 160 NBLK = 1, IBLOCK( M )
288 IF( NBLK.EQ.1 ) THEN
291 B1 = ISPLIT( NBLK-1 ) + 1
293 BN = ISPLIT( NBLK )
316 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dzstein.f212 $ JBLK, JMAX, JR, NBLK, NRMCHK
295 DO 180 NBLK = 1, IBLOCK( M )
299 IF( NBLK.EQ.1 ) THEN
302 B1 = ISPLIT( NBLK-1 ) + 1
304 BN = ISPLIT( NBLK )
327 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dsstein.f200 $ JBLK, JMAX, NBLK, NRMCHK
284 DO 160 NBLK = 1, IBLOCK( M )
288 IF( NBLK.EQ.1 ) THEN
291 B1 = ISPLIT( NBLK-1 ) + 1
293 BN = ISPLIT( NBLK )
316 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dcstein.f212 $ JBLK, JMAX, JR, NBLK, NRMCHK
295 DO 180 NBLK = 1, IBLOCK( M )
299 IF( NBLK.EQ.1 ) THEN
302 B1 = ISPLIT( NBLK-1 ) + 1
304 BN = ISPLIT( NBLK )
327 IF( IBLOCK( J ).NE.NBLK ) THEN
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Dcstein.f124 $ JBLK, JMAX, JR, NBLK, NRMCHK local
207 DO 180 NBLK = 1, IBLOCK( M )
211 IF( NBLK.EQ.1 ) THEN
214 B1 = ISPLIT( NBLK-1 ) + 1
216 BN = ISPLIT( NBLK )
239 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dzstein.f124 $ JBLK, JMAX, JR, NBLK, NRMCHK
207 DO 180 NBLK = 1, IBLOCK( M )
211 IF( NBLK.EQ.1 ) THEN
214 B1 = ISPLIT( NBLK-1 ) + 1
216 BN = ISPLIT( NBLK )
239 IF( IBLOCK( J ).NE.NBLK ) THEN
H A Dsstein.f113 $ JBLK, JMAX, NBLK, NRMCHK local
197 DO 160 NBLK = 1, IBLOCK( M )
201 IF( NBLK.EQ.1 ) THEN
204 B1 = ISPLIT( NBLK-1 ) + 1
206 BN = ISPLIT( NBLK )
229 IF( IBLOCK( J ).NE.NBLK ) THEN
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dcstein.f212 $ JBLK, JMAX, JR, NBLK, NRMCHK
295 DO 180 NBLK = 1, IBLOCK( M )
299 IF( NBLK.EQ.1 ) THEN
302 B1 = ISPLIT( NBLK-1 ) + 1
304 BN = ISPLIT( NBLK )
327 IF( IBLOCK( J ).NE.NBLK ) THEN

123456