Home
last modified time | relevance | path

Searched refs:ICSRC (Results 1 – 19 of 19) sorted by relevance

/dports/math/scalapack/scalapack-2.1.0/TOOLS/
H A Dpcrow2col.f96 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 Dpdrow2col.f96 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 Dpirow2col.f96 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 Dpzrow2col.f96 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 Dpsrow2col.f96 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 Ddescinit.f1 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 Ddescset.f1 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 Dibm_pessl.f22 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 Dscalapack.f9078 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 Dtools_common.F197 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 Dpdtrord.f567 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 Dpstrord.f567 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 Dmpi.f742 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 Dmpi.f742 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 Dmpi.f719 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 Dmpi.f742 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 Dmumps_part9.F7834 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 Dmumps_part9.F7834 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 Dmumps_part9.F7834 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 ) )