Home
last modified time | relevance | path

Searched refs:INDU (Results 1 – 25 of 32) sorted by relevance

12

/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/
H A Dpdbssolver1_svd.f90226 WCOLS, LLD, INDS, INDU, INDVT, INDW, INDWORK, & local
297 INDU = INDW + LOCALMAT
298 INDVT = INDU + LOCALMAT
376 WORK( INDS ), WORK( INDU ), 1, 1, DESCU, WORK( INDVT ), 1, 1, &
404 CALL PDSWAP( N, WORK( INDU ), 1, I, DESCU, 1, &
405 WORK( INDU ), 1, N+1-I, DESCU, 1 )
420 WORK( INDU ), 1, 1, DESCU )
H A Dpzbssolver1.f90226 INDD, INDE, INDTAU, INDU, INDV, INDW, & local
299 INDU = INDW + MAX( TWON+NPROCS, LOCALMAT )
300 INDV = INDU + LOCALMAT
430 DESCM, ZERO, WORK( INDU ), 1, 1, DESCU )
432 DESCW, WORK( INDTAU ), WORK( INDU ), 1, 1, DESCU, &
538 WORK( INDU ), 1, 1, DESCU, WORK( INDWORK ), 1, 1, DESCW, &
H A Dzbssolver1.f90124 TWON, DIMV, NSPLIT, INDD, INDE, INDTAU, INDU, & local
166 INDU = INDW + TWON*TWON
167 INDV = INDU + TWON*TWON
256 WORK( INDTAU ), WORK( INDU ), TWON, WORK( INDWORK ), LLWORK, &
/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Ddlarre2.f206 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
424 INDU = INDEXW( WEND )
431 INDU = IN
439 M = M + INDU - INDL + 1
487 INDU = IN
517 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
672 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
684 DO 138 I = INDL, INDU
727 DO 150 I = INDL, INDU
734 DO 160 I = INDL, INDU
H A Dslarre2.f206 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM, local
424 INDU = INDEXW( WEND )
431 INDU = IN
439 M = M + INDU - INDL + 1
487 INDU = IN
517 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
672 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
684 DO 138 I = INDL, INDU
727 DO 150 I = INDL, INDU
734 DO 160 I = INDL, INDU
H A Dslarre2a.f222 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM, local
407 INDU = IN
431 INDU = INDEXW( WEND )
518 INDU = IN
548 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
693 INDU = INDEXW( WEND )
754 DO 140 I = INDL, INDU
H A Ddlarre2a.f222 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
407 INDU = IN
431 INDU = INDEXW( WEND )
518 INDU = IN
548 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
693 INDU = INDEXW( WEND )
754 DO 140 I = INDL, INDU
H A Dpcgesvd.f302 + INDU,INDV,INDWORK,IOFFD,IOFFE,ISCALE,J,K,LDU,LDVT,LLWORK,
550 INDU = INDWORK
551 INDV = INDU + SIZE*NRU*WANTU
561 CALL PCLASET('Full',M,SIZE,ZERO,ONE,WORK(INDU),1,1,DESCTU)
573 + RWORK(INDE2+IOFFE),WORK(INDV),SIZE,WORK(INDU),LDU,C,1,
578 IF (WANTU.EQ.1) CALL PCGEMR2D(M,SIZE,WORK(INDU),1,1,DESCTU,U,IU,
H A Dpdgesvd.f296 + INDU,INDV,INDWORK,IOFFD,IOFFE,ISCALE,J,K,LDU,LDVT,LLWORK,
542 INDU = INDWORK
543 INDV = INDU + SIZE*NRU*WANTU
553 CALL PDLASET('Full',M,SIZE,ZERO,ONE,WORK(INDU),1,1,DESCTU)
565 + WORK(INDE2+IOFFE),WORK(INDV),SIZE,WORK(INDU),LDU,C,1,
570 IF (WANTU.EQ.1) CALL PDGEMR2D(M,SIZE,WORK(INDU),1,1,DESCTU,U,IU,
H A Dpsgesvd.f296 + INDU,INDV,INDWORK,IOFFD,IOFFE,ISCALE,J,K,LDU,LDVT,LLWORK, local
542 INDU = INDWORK
543 INDV = INDU + SIZE*NRU*WANTU
553 CALL PSLASET('Full',M,SIZE,ZERO,ONE,WORK(INDU),1,1,DESCTU)
565 + WORK(INDE2+IOFFE),WORK(INDV),SIZE,WORK(INDU),LDU,C,1,
570 IF (WANTU.EQ.1) CALL PSGEMR2D(M,SIZE,WORK(INDU),1,1,DESCTU,U,IU,
H A Dpzgesvd.f302 + INDU,INDV,INDWORK,IOFFD,IOFFE,ISCALE,J,K,LDU,LDVT,LLWORK, local
550 INDU = INDWORK
551 INDV = INDU + SIZE*NRU*WANTU
561 CALL PZLASET('Full',M,SIZE,ZERO,ONE,WORK(INDU),1,1,DESCTU)
573 + RWORK(INDE2+IOFFE),WORK(INDV),SIZE,WORK(INDU),LDU,C,1,
578 IF (WANTU.EQ.1) CALL PZGEMR2D(M,SIZE,WORK(INDU),1,1,DESCTU,U,IU,
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlarre.f335 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
556 INDU = INDEXW( WEND )
604 INDU = IN
634 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
799 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
811 DO 138 I = INDL, INDU
854 DO 150 I = INDL, INDU
861 DO 160 I = INDL, INDU
H A Dslarre.f335 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
560 INDU = INDEXW( WEND )
608 INDU = IN
638 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
803 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
815 DO 138 I = INDL, INDU
858 DO 150 I = INDL, INDU
865 DO 160 I = INDL, INDU
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dslarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
570 INDU = INDEXW( WEND )
618 INDU = IN
648 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
813 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
825 DO 138 I = INDL, INDU
868 DO 150 I = INDL, INDU
875 DO 160 I = INDL, INDU
H A Ddlarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
566 INDU = INDEXW( WEND )
614 INDU = IN
644 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
809 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
821 DO 138 I = INDL, INDU
864 DO 150 I = INDL, INDU
871 DO 160 I = INDL, INDU
/dports/math/blas/lapack-3.10.0/SRC/
H A Dslarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
570 INDU = INDEXW( WEND )
618 INDU = IN
648 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
813 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
825 DO 138 I = INDL, INDU
868 DO 150 I = INDL, INDU
875 DO 160 I = INDL, INDU
H A Ddlarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
566 INDU = INDEXW( WEND )
614 INDU = IN
644 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
809 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
821 DO 138 I = INDL, INDU
864 DO 150 I = INDL, INDU
871 DO 160 I = INDL, INDU
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddlarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
566 INDU = INDEXW( WEND )
614 INDU = IN
644 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
809 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
821 DO 138 I = INDL, INDU
864 DO 150 I = INDL, INDU
871 DO 160 I = INDL, INDU
H A Dslarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
570 INDU = INDEXW( WEND )
618 INDU = IN
648 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
813 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
825 DO 138 I = INDL, INDU
868 DO 150 I = INDL, INDU
875 DO 160 I = INDL, INDU
/dports/math/lapack/lapack-3.10.0/SRC/
H A Ddlarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
566 INDU = INDEXW( WEND )
614 INDU = IN
644 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
809 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
821 DO 138 I = INDL, INDU
864 DO 150 I = INDL, INDU
871 DO 160 I = INDL, INDU
H A Dslarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
570 INDU = INDEXW( WEND )
618 INDU = IN
648 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
813 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
825 DO 138 I = INDL, INDU
868 DO 150 I = INDL, INDU
875 DO 160 I = INDL, INDU
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dslarre.f343 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM, local
573 INDU = INDEXW( WEND )
621 INDU = IN
651 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
816 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
828 DO 138 I = INDL, INDU
871 DO 150 I = INDL, INDU
878 DO 160 I = INDL, INDU
H A Ddlarre.f343 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM, local
569 INDU = INDEXW( WEND )
617 INDU = IN
647 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
812 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
824 DO 138 I = INDL, INDU
867 DO 150 I = INDL, INDU
874 DO 160 I = INDL, INDU
/dports/math/cblas/lapack-3.10.0/SRC/
H A Ddlarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
566 INDU = INDEXW( WEND )
614 INDU = IN
644 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
809 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
821 DO 138 I = INDL, INDU
864 DO 150 I = INDL, INDU
871 DO 160 I = INDL, INDU
H A Dslarre.f340 $ IN, INDL, INDU, IRANGE, J, JBLK, MB, MM,
570 INDU = INDEXW( WEND )
618 INDU = IN
648 ELSEIF( CNT1 - INDL .GE. INDU - CNT2 ) THEN
813 $ INDL, INDU, RTOL1, RTOL2, INDL-1,
825 DO 138 I = INDL, INDU
868 DO 150 I = INDL, INDU
875 DO 160 I = INDL, INDU

12