Home
last modified time | relevance | path

Searched refs:MYROW (Results 151 – 175 of 1169) sorted by relevance

12345678910>>...47

/dports/math/scalapack/scalapack-2.1.0/TOOLS/
H A Dpielget.f123 $ MYROW, NPCOL, NPROW
137 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
139 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
145 IF( MYROW.EQ.IAROW ) THEN
157 IF( MYROW.EQ.IAROW ) THEN
167 IF( ( MYROW.EQ.IAROW ).AND.( MYCOL.EQ.IACOL ) ) THEN
176 IF( MYROW.EQ.IAROW .AND. MYCOL.EQ.IACOL )
H A Dpdchekpad.f81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW,
91 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
92 IAM = MYROW*NPCOL + MYCOL
100 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I,
115 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post',
132 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
H A Dpichekpad.f81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW, local
91 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
92 IAM = MYROW*NPCOL + MYCOL
100 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I,
115 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post',
132 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
H A Dpschekpad.f81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW, local
91 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
92 IAM = MYROW*NPCOL + MYCOL
100 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I,
115 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post',
132 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
H A Dpcchekpad.f81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW,
94 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
95 IAM = MYROW*NPCOL + MYCOL
103 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I,
118 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post',
136 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpclapv2.f156 $ MYROW, NBA, NPCOL, NPROW
189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL,
201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
214 IF( MYROW.EQ.ICURROW ) THEN
267 $ IPIV( ITMP ), JB, MYROW, ICURCOL )
298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW,
301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1
322 IF( MYROW.EQ.ICURROW ) THEN
[all …]
H A Dpdlapv2.f156 $ MYROW, NBA, NPCOL, NPROW
189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL,
201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
214 IF( MYROW.EQ.ICURROW ) THEN
267 $ IPIV( ITMP ), JB, MYROW, ICURCOL )
298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW,
301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1
322 IF( MYROW.EQ.ICURROW ) THEN
[all …]
H A Dpzlapv2.f156 $ MYROW, NBA, NPCOL, NPROW local
189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL,
201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
214 IF( MYROW.EQ.ICURROW ) THEN
267 $ IPIV( ITMP ), JB, MYROW, ICURCOL )
298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW,
301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1
322 IF( MYROW.EQ.ICURROW ) THEN
[all …]
H A Dpslapv2.f156 $ MYROW, NBA, NPCOL, NPROW local
189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL,
201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
214 IF( MYROW.EQ.ICURROW ) THEN
267 $ IPIV( ITMP ), JB, MYROW, ICURCOL )
298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW,
301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW,
309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1
322 IF( MYROW.EQ.ICURROW ) THEN
[all …]
H A Dpclarfc.f296 IF( MYROW.EQ.ICROW )
335 IF( MYROW.EQ.IVROW ) THEN
471 IF( MYROW.EQ.IVROW ) THEN
525 $ IPW, MYROW, IVCOL )
559 RDEST = MYROW
576 IF( MYROW.EQ.ICROW ) THEN
607 IF( MYROW.EQ.IVROW ) THEN
615 ELSE IF( MYROW.EQ.ICROW ) THEN
660 IF( MYROW.EQ.ICROW ) THEN
712 IF( MYROW.EQ.IVROW ) THEN
[all …]
H A Dpdlarf.f295 IF( MYROW.EQ.ICROW )
334 IF( MYROW.EQ.IVROW ) THEN
469 IF( MYROW.EQ.IVROW ) THEN
524 $ IPW, MYROW, IVCOL )
560 RDEST = MYROW
577 IF( MYROW.EQ.ICROW ) THEN
609 IF( MYROW.EQ.IVROW ) THEN
617 ELSE IF( MYROW.EQ.ICROW ) THEN
662 IF( MYROW.EQ.ICROW ) THEN
713 IF( MYROW.EQ.IVROW ) THEN
[all …]
H A Dpslarf.f295 IF( MYROW.EQ.ICROW )
334 IF( MYROW.EQ.IVROW ) THEN
469 IF( MYROW.EQ.IVROW ) THEN
524 $ IPW, MYROW, IVCOL )
560 RDEST = MYROW
577 IF( MYROW.EQ.ICROW ) THEN
609 IF( MYROW.EQ.IVROW ) THEN
617 ELSE IF( MYROW.EQ.ICROW ) THEN
662 IF( MYROW.EQ.ICROW ) THEN
713 IF( MYROW.EQ.IVROW ) THEN
[all …]
H A Dpclarf.f296 IF( MYROW.EQ.ICROW )
335 IF( MYROW.EQ.IVROW ) THEN
470 IF( MYROW.EQ.IVROW ) THEN
525 $ IPW, MYROW, IVCOL )
561 RDEST = MYROW
578 IF( MYROW.EQ.ICROW ) THEN
611 IF( MYROW.EQ.IVROW ) THEN
619 ELSE IF( MYROW.EQ.ICROW ) THEN
664 IF( MYROW.EQ.ICROW ) THEN
715 IF( MYROW.EQ.IVROW ) THEN
[all …]
H A Dpzlarf.f296 IF( MYROW.EQ.ICROW )
335 IF( MYROW.EQ.IVROW ) THEN
470 IF( MYROW.EQ.IVROW ) THEN
525 $ IPW, MYROW, IVCOL )
561 RDEST = MYROW
578 IF( MYROW.EQ.ICROW ) THEN
611 IF( MYROW.EQ.IVROW ) THEN
619 ELSE IF( MYROW.EQ.ICROW ) THEN
664 IF( MYROW.EQ.ICROW ) THEN
715 IF( MYROW.EQ.IVROW ) THEN
[all …]
H A Dpzlarfc.f296 IF( MYROW.EQ.ICROW )
335 IF( MYROW.EQ.IVROW ) THEN
471 IF( MYROW.EQ.IVROW ) THEN
525 $ IPW, MYROW, IVCOL )
559 RDEST = MYROW
576 IF( MYROW.EQ.ICROW ) THEN
607 IF( MYROW.EQ.IVROW ) THEN
615 ELSE IF( MYROW.EQ.ICROW ) THEN
660 IF( MYROW.EQ.ICROW ) THEN
712 IF( MYROW.EQ.IVROW ) THEN
[all …]
H A Dpdhseqr.f255 $ MYROW, MYCOL, HROWS, HCOLS, IPW, NH, NB, local
285 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
338 HROWS = NUMROC( NL, NB, MYROW, DESCH(RSRC_), NPROW )
379 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN
392 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN
412 CALL INFOG2L( ILO, ILO, DESCH, NPROW, NPCOL, MYROW,
414 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN
622 IF( MYROW.EQ.HRSRC2 .AND. MYCOL.EQ.HCSRC2 ) THEN
627 IF( MYROW.EQ.HRSRC3 .AND. MYCOL.EQ.HCSRC3 ) THEN
632 IF( MYROW.EQ.HRSRC4 .AND. MYCOL.EQ.HCSRC4 ) THEN
[all …]
H A Dpshseqr.f255 $ MYROW, MYCOL, HROWS, HCOLS, IPW, NH, NB, local
285 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
338 HROWS = NUMROC( NL, NB, MYROW, DESCH(RSRC_), NPROW )
379 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN
392 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN
412 CALL INFOG2L( ILO, ILO, DESCH, NPROW, NPCOL, MYROW,
414 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN
622 IF( MYROW.EQ.HRSRC2 .AND. MYCOL.EQ.HCSRC2 ) THEN
627 IF( MYROW.EQ.HRSRC3 .AND. MYCOL.EQ.HCSRC3 ) THEN
632 IF( MYROW.EQ.HRSRC4 .AND. MYCOL.EQ.HCSRC4 ) THEN
[all …]
H A Dpcgeqpf.f216 $ MYROW, NPCOL, NPROW, NQ, NQ0, PVT local
244 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
306 IF( MYROW.EQ.IAROW )
352 CALL DESCSET( DESCN, 1, DESCA( N_ ), 1, DESCA( NB_ ), MYROW,
411 $ MYROW, IPCOL )
418 $ MYROW, IPCOL )
419 CALL IGERV2D( ICTXT, 1, 1, IPIV( JJ ), 1, MYROW,
425 $ LDA, MYROW, ICURCOL )
430 $ LDA, MYROW, ICURCOL )
447 IF( MYROW.EQ.ICURROW ) THEN
[all …]
H A Dpzgeqpf.f216 $ MYROW, NPCOL, NPROW, NQ, NQ0, PVT local
245 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
307 IF( MYROW.EQ.IAROW )
353 CALL DESCSET( DESCN, 1, DESCA( N_ ), 1, DESCA( NB_ ), MYROW,
412 $ MYROW, IPCOL )
419 $ MYROW, IPCOL )
420 CALL IGERV2D( ICTXT, 1, 1, IPIV( JJ ), 1, MYROW,
426 $ LDA, MYROW, ICURCOL )
431 $ LDA, MYROW, ICURCOL )
448 IF( MYROW.EQ.ICURROW ) THEN
[all …]
H A Dpclacgv.f119 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, local
137 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
141 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL,
149 IF( MYROW.NE.IXROW )
171 NP = NUMROC( N+IROFFX, DESCX( MB_ ), MYROW, IXROW, NPROW )
172 IF( MYROW.EQ.IXROW )
H A Dpdlatrs.f39 INTEGER ICTXT, IIX, IROFF, JJX, MYCOL, MYROW, NP,
55 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
68 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX,
72 NP = NUMROC( N+IROFF, DESCX( MB_ ), MYROW, IXROW, NPROW )
73 IF( MYROW.EQ.IXROW )
80 $ LDX, MYROW, IXCOL )
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/
H A Dpspbmv1.f559 IF( MYROW .LT. 0 ) THEN
649 $ BW, MYROW, MYCOL+1 )
683 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
724 $ BW, MYROW, MYCOL-1 )
729 $ BW, MYROW, MYCOL-1 )
746 $ BW, MYROW, MYCOL+1 )
797 $ BW, MYROW, MYCOL-1 )
837 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
872 $ BW, MYROW, MYCOL-1 )
877 $ BW, MYROW, MYCOL-1 )
[all …]
H A Dpcpbmv1.f562 IF( MYROW .LT. 0 ) THEN
652 $ BW, MYROW, MYCOL+1 )
686 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
727 $ BW, MYROW, MYCOL-1 )
732 $ BW, MYROW, MYCOL-1 )
749 $ BW, MYROW, MYCOL+1 )
800 $ BW, MYROW, MYCOL-1 )
840 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
875 $ BW, MYROW, MYCOL-1 )
880 $ BW, MYROW, MYCOL-1 )
[all …]
H A Dpdpbmv1.f559 IF( MYROW .LT. 0 ) THEN
649 $ BW, MYROW, MYCOL+1 )
683 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
724 $ BW, MYROW, MYCOL-1 )
729 $ BW, MYROW, MYCOL-1 )
746 $ BW, MYROW, MYCOL+1 )
797 $ BW, MYROW, MYCOL-1 )
837 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
872 $ BW, MYROW, MYCOL-1 )
877 $ BW, MYROW, MYCOL-1 )
[all …]
H A Dpzpbmv1.f562 IF( MYROW .LT. 0 ) THEN
652 $ BW, MYROW, MYCOL+1 )
686 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
727 $ BW, MYROW, MYCOL-1 )
732 $ BW, MYROW, MYCOL-1 )
749 $ BW, MYROW, MYCOL+1 )
800 $ BW, MYROW, MYCOL-1 )
840 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 )
875 $ BW, MYROW, MYCOL-1 )
880 $ BW, MYROW, MYCOL-1 )
[all …]

12345678910>>...47