/dports/math/scalapack/scalapack-2.1.0/TOOLS/ |
H A D | pcrow2col.f | 96 INTEGER CBLKSKIP, ICPY, II, ISTART, ICSRC, IRDEST, JB, 183 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 191 IF( (MYROW.NE.RSRC).OR.(MYCOL.NE.ICSRC) ) THEN 199 $ CALL CGERV2D( ICTXT, JJ, N, WORK, JJ, RSRC, ICSRC ) 223 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 253 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 254 IF( (MYCOL.NE.ICSRC).OR.(MYROW.NE. RSRC) ) 255 $ CALL CGERV2D( ICTXT, MP, N, VD, LDVD, RSRC, ICSRC )
|
H A D | pdrow2col.f | 96 INTEGER CBLKSKIP, ICPY, II, ISTART, ICSRC, IRDEST, JB, local 186 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 194 IF( (MYROW.NE.RSRC).OR.(MYCOL.NE.ICSRC) ) THEN 202 $ CALL DGERV2D( ICTXT, JJ, N, WORK, JJ, RSRC, ICSRC ) 226 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 256 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 257 IF( (MYCOL.NE.ICSRC).OR.(MYROW.NE. RSRC) ) 258 $ CALL DGERV2D( ICTXT, MP, N, VD, LDVD, RSRC, ICSRC )
|
H A D | pirow2col.f | 96 INTEGER CBLKSKIP, ICPY, II, ISTART, ICSRC, IRDEST, JB, local 186 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 194 IF( (MYROW.NE.RSRC).OR.(MYCOL.NE.ICSRC) ) THEN 202 $ CALL IGERV2D( ICTXT, JJ, N, WORK, JJ, RSRC, ICSRC ) 226 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 256 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 257 IF( (MYCOL.NE.ICSRC).OR.(MYROW.NE. RSRC) ) 258 $ CALL IGERV2D( ICTXT, MP, N, VD, LDVD, RSRC, ICSRC )
|
H A D | pzrow2col.f | 96 INTEGER CBLKSKIP, ICPY, II, ISTART, ICSRC, IRDEST, JB, 183 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 191 IF( (MYROW.NE.RSRC).OR.(MYCOL.NE.ICSRC) ) THEN 199 $ CALL ZGERV2D( ICTXT, JJ, N, WORK, JJ, RSRC, ICSRC ) 223 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 253 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 254 IF( (MYCOL.NE.ICSRC).OR.(MYROW.NE. RSRC) ) 255 $ CALL ZGERV2D( ICTXT, MP, N, VD, LDVD, RSRC, ICSRC )
|
H A D | psrow2col.f | 96 INTEGER CBLKSKIP, ICPY, II, ISTART, ICSRC, IRDEST, JB, 186 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 194 IF( (MYROW.NE.RSRC).OR.(MYCOL.NE.ICSRC) ) THEN 202 $ CALL SGERV2D( ICTXT, JJ, N, WORK, JJ, RSRC, ICSRC ) 226 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 256 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 257 IF( (MYCOL.NE.ICSRC).OR.(MYROW.NE. RSRC) ) 258 $ CALL SGERV2D( ICTXT, MP, N, VD, LDVD, RSRC, ICSRC )
|
H A D | descinit.f | 1 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 10 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB local 164 ELSE IF( ICSRC.LT.0 .OR. ICSRC.GE.NPCOL ) THEN 182 DESC( CSRC_ ) = MAX( 0, MIN( ICSRC, NPCOL-1 ) )
|
H A D | descset.f | 1 SUBROUTINE DESCSET( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 10 INTEGER ICSRC, ICTXT, IRSRC, LLD, M, MB, N, NB local 130 DESC( CSRC_ ) = ICSRC
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | ibm_pessl.f | 22 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 31 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB 185 ELSE IF( ICSRC.LT.0 .OR. ICSRC.GE.NPCOL ) THEN 203 DESC( CSRC_ ) = MAX( 0, MIN( ICSRC, NPCOL-1 ) )
|
/dports/science/berkeleygw/BGW-2.0.0/Common/ |
H A D | scalapack.f90 | 78 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, LLD, INFO ) 80 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB local 86 SUBROUTINE DESCSET( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, LLD ) 88 INTEGER ICSRC, ICTXT, IRSRC, LLD, M, MB, N, NB local
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | tools_common.F | 197 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 199 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB local 229 ELSE IF( ICSRC.LT.0 .OR. ICSRC.GE.NPCOL ) THEN 247 DESC( CSRC_ ) = max( 0, min( ICSRC, NPCOL-1 ) )
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pdtrord.f | 567 ICSRC = IRSRC + NUMWIN 568 IPIW = ICSRC + NUMWIN 733 CSRC = IWORK(ICSRC+WINDOW-1) 775 CSRC = IWORK(ICSRC+WINDOW-1) 895 CSRC = IWORK(ICSRC+WINDOW-1) 926 CSRC = IWORK(ICSRC+WINDOW-1) 1052 CSRC = IWORK(ICSRC+WINDOW-1) 1673 CSRC4 = IWORK(ICSRC+WINDOW-1) 2135 CSRC4 = IWORK(ICSRC+WINDOW-1) 2369 CSRC4 = IWORK(ICSRC+WINDOW-1) [all …]
|
H A D | pstrord.f | 567 ICSRC = IRSRC + NUMWIN 568 IPIW = ICSRC + NUMWIN 733 CSRC = IWORK(ICSRC+WINDOW-1) 775 CSRC = IWORK(ICSRC+WINDOW-1) 895 CSRC = IWORK(ICSRC+WINDOW-1) 926 CSRC = IWORK(ICSRC+WINDOW-1) 1052 CSRC = IWORK(ICSRC+WINDOW-1) 1673 CSRC4 = IWORK(ICSRC+WINDOW-1) 2135 CSRC4 = IWORK(ICSRC+WINDOW-1) 2369 CSRC4 = IWORK(ICSRC+WINDOW-1) [all …]
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/libseq/ |
H A D | mpi.f | 742 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, argument 745 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB 1575 SUBROUTINE descset( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, 1578 INTEGER ICSRC, ICTXT, IRSRC, LLD, M, MB, N, NB
|
/dports/math/coinmumps/MUMPS_4.10.0/libseq/ |
H A D | mpi.f | 742 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, argument 745 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB 1575 SUBROUTINE descset( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, 1578 INTEGER ICSRC, ICTXT, IRSRC, LLD, M, MB, N, NB
|
/dports/math/mumps/mumps-5.1.2/libseq/ |
H A D | mpi.f | 719 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, argument 722 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB local 1552 SUBROUTINE descset( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 1555 INTEGER ICSRC, ICTXT, IRSRC, LLD, M, MB, N, NB local
|
/dports/math/mumps4/MUMPS_4.10.0/libseq/ |
H A D | mpi.f | 742 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, argument 745 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB local 1575 SUBROUTINE descset( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 1578 INTEGER ICSRC, ICTXT, IRSRC, LLD, M, MB, N, NB local
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | mumps_part9.F | 7834 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 7836 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB 7866 ELSE IF( ICSRC.LT.0 .OR. ICSRC.GE.NPCOL ) THEN 7884 DESC( CSRC_ ) = max( 0, min( ICSRC, NPCOL-1 ) )
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | mumps_part9.F | 7834 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 7836 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB 7866 ELSE IF( ICSRC.LT.0 .OR. ICSRC.GE.NPCOL ) THEN 7884 DESC( CSRC_ ) = max( 0, min( ICSRC, NPCOL-1 ) )
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | mumps_part9.F | 7834 SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, argument 7836 INTEGER ICSRC, ICTXT, INFO, IRSRC, LLD, M, MB, N, NB local 7866 ELSE IF( ICSRC.LT.0 .OR. ICSRC.GE.NPCOL ) THEN 7884 DESC( CSRC_ ) = max( 0, min( ICSRC, NPCOL-1 ) )
|