/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/ |
H A D | pdbssolver1_svd.f90 | 226 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 D | pzbssolver1.f90 | 226 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 D | zbssolver1.f90 | 124 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 D | dlarre2.f | 206 $ 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 D | slarre2.f | 206 $ 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 D | slarre2a.f | 222 $ 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 D | dlarre2a.f | 222 $ 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 D | pcgesvd.f | 302 + 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 D | pdgesvd.f | 296 + 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 D | psgesvd.f | 296 + 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 D | pzgesvd.f | 302 + 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 D | dlarre.f | 335 $ 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 D | slarre.f | 335 $ 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 D | slarre.f | 340 $ 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 D | dlarre.f | 340 $ 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 D | slarre.f | 340 $ 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 D | dlarre.f | 340 $ 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 D | dlarre.f | 340 $ 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 D | slarre.f | 340 $ 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 D | dlarre.f | 340 $ 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 D | slarre.f | 340 $ 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 D | slarre.f | 343 $ 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 D | dlarre.f | 343 $ 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 D | dlarre.f | 340 $ 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 D | slarre.f | 340 $ 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
|