Home
last modified time | relevance | path

Searched refs:LOCAL_M (Results 1 – 25 of 145) sorted by relevance

123456

/dports/math/mumps/mumps-5.1.2/src/
H A Dzsol_root_parallel.F14 & CNTXT_PAR,LOCAL_M,LOCAL_N,MBLOCK,NBLOCK, argument
20 INTEGER LOCAL_M, LOCAL_N, MBLOCK, NBLOCK local
26 COMPLEX(kind=8) A( LOCAL_M, LOCAL_N )
36 ALLOCATE(RHS_PAR(LOCAL_M, LOCAL_N_RHS),stat=allocok)
43 & LOCAL_M, LOCAL_N_RHS,
47 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS,
52 & RHS_SEQ, LOCAL_M, LOCAL_N_RHS,
59 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS, argument
64 INTEGER, intent (in) :: SIZE_ROOT, NRHS, LDLT, LOCAL_M, local
69 COMPLEX(kind=8), intent (in) :: A( LOCAL_M, LOCAL_N )
[all …]
H A Dcsol_root_parallel.F14 & CNTXT_PAR,LOCAL_M,LOCAL_N,MBLOCK,NBLOCK, argument
20 INTEGER LOCAL_M, LOCAL_N, MBLOCK, NBLOCK local
26 COMPLEX A( LOCAL_M, LOCAL_N )
36 ALLOCATE(RHS_PAR(LOCAL_M, LOCAL_N_RHS),stat=allocok)
43 & LOCAL_M, LOCAL_N_RHS,
47 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS,
52 & RHS_SEQ, LOCAL_M, LOCAL_N_RHS,
59 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS, argument
64 INTEGER, intent (in) :: SIZE_ROOT, NRHS, LDLT, LOCAL_M, local
69 COMPLEX, intent (in) :: A( LOCAL_M, LOCAL_N )
[all …]
H A Ddsol_root_parallel.F14 & CNTXT_PAR,LOCAL_M,LOCAL_N,MBLOCK,NBLOCK, argument
20 INTEGER LOCAL_M, LOCAL_N, MBLOCK, NBLOCK local
26 DOUBLE PRECISION A( LOCAL_M, LOCAL_N )
36 ALLOCATE(RHS_PAR(LOCAL_M, LOCAL_N_RHS),stat=allocok)
43 & LOCAL_M, LOCAL_N_RHS,
47 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS,
52 & RHS_SEQ, LOCAL_M, LOCAL_N_RHS,
59 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS, argument
64 INTEGER, intent (in) :: SIZE_ROOT, NRHS, LDLT, LOCAL_M, local
69 DOUBLE PRECISION, intent (in) :: A( LOCAL_M, LOCAL_N )
[all …]
H A Dssol_root_parallel.F14 & CNTXT_PAR,LOCAL_M,LOCAL_N,MBLOCK,NBLOCK, argument
20 INTEGER LOCAL_M, LOCAL_N, MBLOCK, NBLOCK local
26 REAL A( LOCAL_M, LOCAL_N )
36 ALLOCATE(RHS_PAR(LOCAL_M, LOCAL_N_RHS),stat=allocok)
43 & LOCAL_M, LOCAL_N_RHS,
47 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS,
52 & RHS_SEQ, LOCAL_M, LOCAL_N_RHS,
59 & A, DESCA_PAR, LOCAL_M, LOCAL_N, LOCAL_N_RHS, argument
69 REAL, intent (in) :: A( LOCAL_M, LOCAL_N )
70 REAL, intent (inout) :: RHS_PAR(LOCAL_M, LOCAL_N_RHS)
[all …]
H A Dzfac_type3_symmetrize.F15 & A, LOCAL_M, LOCAL_N, N, MYID, COMM ) argument
17 INTEGER BLOCK_SIZE, NPROW, NPCOL, LOCAL_M, LOCAL_N, N, COMM local
20 COMPLEX(kind=8) A( LOCAL_M, LOCAL_N )
71 & IBLOCK_SIZE, LOCAL_M )
76 & IBLOCK_SIZE, JBLOCK_SIZE, LOCAL_M )
86 & A( IROW_LOC_SOURCE, JCOL_LOC_SOURCE ), LOCAL_M,
95 & A( IROW_LOC_DEST, JCOL_LOC_DEST ), LOCAL_M,
H A Dcfac_type3_symmetrize.F15 & A, LOCAL_M, LOCAL_N, N, MYID, COMM ) argument
17 INTEGER BLOCK_SIZE, NPROW, NPCOL, LOCAL_M, LOCAL_N, N, COMM local
20 COMPLEX A( LOCAL_M, LOCAL_N )
71 & IBLOCK_SIZE, LOCAL_M )
76 & IBLOCK_SIZE, JBLOCK_SIZE, LOCAL_M )
86 & A( IROW_LOC_SOURCE, JCOL_LOC_SOURCE ), LOCAL_M,
95 & A( IROW_LOC_DEST, JCOL_LOC_DEST ), LOCAL_M,
H A Dsfac_type3_symmetrize.F15 & A, LOCAL_M, LOCAL_N, N, MYID, COMM ) argument
17 INTEGER BLOCK_SIZE, NPROW, NPCOL, LOCAL_M, LOCAL_N, N, COMM local
20 REAL A( LOCAL_M, LOCAL_N )
71 & IBLOCK_SIZE, LOCAL_M )
76 & IBLOCK_SIZE, JBLOCK_SIZE, LOCAL_M )
86 & A( IROW_LOC_SOURCE, JCOL_LOC_SOURCE ), LOCAL_M,
95 & A( IROW_LOC_DEST, JCOL_LOC_DEST ), LOCAL_M,
H A Ddfac_type3_symmetrize.F15 & A, LOCAL_M, LOCAL_N, N, MYID, COMM ) argument
17 INTEGER BLOCK_SIZE, NPROW, NPCOL, LOCAL_M, LOCAL_N, N, COMM local
20 DOUBLE PRECISION A( LOCAL_M, LOCAL_N )
71 & IBLOCK_SIZE, LOCAL_M )
76 & IBLOCK_SIZE, JBLOCK_SIZE, LOCAL_M )
86 & A( IROW_LOC_SOURCE, JCOL_LOC_SOURCE ), LOCAL_M,
95 & A( IROW_LOC_DEST, JCOL_LOC_DEST ), LOCAL_M,
H A Dcfac_determinant.F42 & A, LOCAL_M, LOCAL_N, N, MYID, argument
49 & LOCAL_M, LOCAL_N, N local
50 INTEGER, intent (in) :: MYROW, MYCOL, MYID, IPIV(LOCAL_M)
54 DI = LOCAL_M + 1
63 I = ILOC + JLOC * LOCAL_M + 1
64 IMX = min(ILOC+BLOCK_SIZE,LOCAL_M)
65 & + (min(JLOC+BLOCK_SIZE,LOCAL_N)-1)*LOCAL_M
H A Dsfac_determinant.F35 & A, LOCAL_M, LOCAL_N, N, MYID, argument
42 & LOCAL_M, LOCAL_N, N local
43 INTEGER, intent (in) :: MYROW, MYCOL, MYID, IPIV(LOCAL_M)
47 DI = LOCAL_M + 1
56 I = ILOC + JLOC * LOCAL_M + 1
57 IMX = min(ILOC+BLOCK_SIZE,LOCAL_M)
58 & + (min(JLOC+BLOCK_SIZE,LOCAL_N)-1)*LOCAL_M
H A Ddfac_determinant.F35 & A, LOCAL_M, LOCAL_N, N, MYID, argument
42 & LOCAL_M, LOCAL_N, N local
43 INTEGER, intent (in) :: MYROW, MYCOL, MYID, IPIV(LOCAL_M)
47 DI = LOCAL_M + 1
56 I = ILOC + JLOC * LOCAL_M + 1
57 IMX = min(ILOC+BLOCK_SIZE,LOCAL_M)
58 & + (min(JLOC+BLOCK_SIZE,LOCAL_N)-1)*LOCAL_M
H A Dzfac_determinant.F42 & A, LOCAL_M, LOCAL_N, N, MYID, argument
49 & LOCAL_M, LOCAL_N, N local
50 INTEGER, intent (in) :: MYROW, MYCOL, MYID, IPIV(LOCAL_M)
54 DI = LOCAL_M + 1
63 I = ILOC + JLOC * LOCAL_M + 1
64 IMX = min(ILOC+BLOCK_SIZE,LOCAL_M)
65 & + (min(JLOC+BLOCK_SIZE,LOCAL_N)-1)*LOCAL_M
H A Ddfac_distrib_distentry.F143 INTEGER LOCAL_M, LOCAL_N, ARROW_ROOT local
263 LOCAL_M = numroc( root%ROOT_SIZE, root%MBLOCK,
265 LOCAL_M = max( 1, LOCAL_M )
268 PTR_ROOT = LA - int(LOCAL_M,8) * int(LOCAL_N,8) + 1_8
306 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
439 & PROCNODE_STEPS, A, LA, PTR_ROOT, LOCAL_M, LOCAL_N,
449 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
488 INTEGER ARROW_ROOT, END_MSG_2_RECV, LOCAL_M, LOCAL_N local
615 INTEGER LOCAL_M, LOCAL_N local
667 A( PTR_ROOT + int(JLOCROOT-1,8) * int(LOCAL_M,8)
[all …]
H A Dcfac_distrib_distentry.F143 INTEGER LOCAL_M, LOCAL_N, ARROW_ROOT local
263 LOCAL_M = numroc( root%ROOT_SIZE, root%MBLOCK,
265 LOCAL_M = max( 1, LOCAL_M )
268 PTR_ROOT = LA - int(LOCAL_M,8) * int(LOCAL_N,8) + 1_8
306 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
439 & PROCNODE_STEPS, A, LA, PTR_ROOT, LOCAL_M, LOCAL_N,
449 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
488 INTEGER ARROW_ROOT, END_MSG_2_RECV, LOCAL_M, LOCAL_N local
615 INTEGER LOCAL_M, LOCAL_N local
667 A( PTR_ROOT + int(JLOCROOT-1,8) * int(LOCAL_M,8)
[all …]
H A Dsfac_distrib_distentry.F143 INTEGER LOCAL_M, LOCAL_N, ARROW_ROOT local
263 LOCAL_M = numroc( root%ROOT_SIZE, root%MBLOCK,
265 LOCAL_M = max( 1, LOCAL_M )
268 PTR_ROOT = LA - int(LOCAL_M,8) * int(LOCAL_N,8) + 1_8
306 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
439 & PROCNODE_STEPS, A, LA, PTR_ROOT, LOCAL_M, LOCAL_N,
449 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
488 INTEGER ARROW_ROOT, END_MSG_2_RECV, LOCAL_M, LOCAL_N local
615 INTEGER LOCAL_M, LOCAL_N local
667 A( PTR_ROOT + int(JLOCROOT-1,8) * int(LOCAL_M,8)
[all …]
H A Dzfac_distrib_distentry.F143 INTEGER LOCAL_M, LOCAL_N, ARROW_ROOT local
263 LOCAL_M = numroc( root%ROOT_SIZE, root%MBLOCK,
265 LOCAL_M = max( 1, LOCAL_M )
268 PTR_ROOT = LA - int(LOCAL_M,8) * int(LOCAL_N,8) + 1_8
306 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
439 & PROCNODE_STEPS, A, LA, PTR_ROOT, LOCAL_M, LOCAL_N,
449 & KEEP,KEEP8, LOCAL_M, LOCAL_N, root, PTR_ROOT,
488 INTEGER ARROW_ROOT, END_MSG_2_RECV, LOCAL_M, LOCAL_N local
615 INTEGER LOCAL_M, LOCAL_N local
667 A( PTR_ROOT + int(JLOCROOT-1,8) * int(LOCAL_M,8)
[all …]
H A Dcfac_root_parallel.F40 INTEGER LOCAL_M, LOCAL_N, LPIV, IERR, allocok local
58 LOCAL_M = IW( IOLDPS + 2 )
62 LPIV = LOCAL_M + root%MBLOCK
77 & 0, 0, root%CNTXT_BLACS, LOCAL_M, IERR )
94 & A( IAPOS ), LOCAL_M, LOCAL_N,
153 & root%MYCOL, root%NPROW, root%NPCOL, A(IAPOS), LOCAL_M,
168 & LOCAL_M, LOCAL_N, FWD_LOCAL_N_RHS,
H A Dzfac_root_parallel.F40 INTEGER LOCAL_M, LOCAL_N, LPIV, IERR, allocok local
58 LOCAL_M = IW( IOLDPS + 2 )
62 LPIV = LOCAL_M + root%MBLOCK
77 & 0, 0, root%CNTXT_BLACS, LOCAL_M, IERR )
94 & A( IAPOS ), LOCAL_M, LOCAL_N,
153 & root%MYCOL, root%NPROW, root%NPCOL, A(IAPOS), LOCAL_M,
168 & LOCAL_M, LOCAL_N, FWD_LOCAL_N_RHS,
H A Ddfac_root_parallel.F40 INTEGER LOCAL_M, LOCAL_N, LPIV, IERR, allocok local
58 LOCAL_M = IW( IOLDPS + 2 )
62 LPIV = LOCAL_M + root%MBLOCK
77 & 0, 0, root%CNTXT_BLACS, LOCAL_M, IERR )
94 & A( IAPOS ), LOCAL_M, LOCAL_N,
153 & root%MYCOL, root%NPROW, root%NPCOL, A(IAPOS), LOCAL_M,
168 & LOCAL_M, LOCAL_N, FWD_LOCAL_N_RHS,
H A Dsfac_root_parallel.F40 INTEGER LOCAL_M, LOCAL_N, LPIV, IERR, allocok local
58 LOCAL_M = IW( IOLDPS + 2 )
62 LPIV = LOCAL_M + root%MBLOCK
77 & 0, 0, root%CNTXT_BLACS, LOCAL_M, IERR )
94 & A( IAPOS ), LOCAL_M, LOCAL_N,
153 & root%MYCOL, root%NPROW, root%NPCOL, A(IAPOS), LOCAL_M,
168 & LOCAL_M, LOCAL_N, FWD_LOCAL_N_RHS,
H A Dztype3_root.F15 & LOCAL_M, LOCAL_N, argument
21 INTEGER LOCAL_M, LOCAL_N local
125 INTEGER LOCAL_M, LOCAL_N local
400 LOCAL_M = root%SCHUR_LLD
406 & LOCAL_M, LOCAL_N,
434 & LOCAL_M, LOCAL_N,
584 & LOCAL_M, LOCAL_N, argument
592 INTEGER N, LOCAL_M, LOCAL_N local
884 INTEGER LOCAL_M, LOCAL_N local
973 INTEGER LOCAL_M, LOCAL_N local
[all …]
H A Ddtype3_root.F15 & LOCAL_M, LOCAL_N, argument
21 INTEGER LOCAL_M, LOCAL_N local
125 INTEGER LOCAL_M, LOCAL_N local
400 LOCAL_M = root%SCHUR_LLD
406 & LOCAL_M, LOCAL_N,
434 & LOCAL_M, LOCAL_N,
584 & LOCAL_M, LOCAL_N, argument
592 INTEGER N, LOCAL_M, LOCAL_N local
884 INTEGER LOCAL_M, LOCAL_N local
973 INTEGER LOCAL_M, LOCAL_N local
[all …]
H A Dstype3_root.F21 INTEGER LOCAL_M, LOCAL_N local
23 REAL VAL_ROOT( LOCAL_M, LOCAL_N )
125 INTEGER LOCAL_M, LOCAL_N local
400 LOCAL_M = root%SCHUR_LLD
406 & LOCAL_M, LOCAL_N,
434 & LOCAL_M, LOCAL_N,
584 & LOCAL_M, LOCAL_N, argument
592 INTEGER N, LOCAL_M, LOCAL_N local
884 INTEGER LOCAL_M, LOCAL_N local
973 INTEGER LOCAL_M, LOCAL_N local
[all …]
H A Dctype3_root.F21 INTEGER LOCAL_M, LOCAL_N local
23 COMPLEX VAL_ROOT( LOCAL_M, LOCAL_N )
125 INTEGER LOCAL_M, LOCAL_N local
400 LOCAL_M = root%SCHUR_LLD
406 & LOCAL_M, LOCAL_N,
434 & LOCAL_M, LOCAL_N,
584 & LOCAL_M, LOCAL_N, argument
592 INTEGER N, LOCAL_M, LOCAL_N local
884 INTEGER LOCAL_M, LOCAL_N local
973 INTEGER LOCAL_M, LOCAL_N local
[all …]
H A Dcarrowheads.F218 INTEGER LOCAL_M, LOCAL_N local
253 LOCAL_M = numroc( root%ROOT_SIZE, root%MBLOCK,
255 LOCAL_M = max( 1, LOCAL_M )
394 & + int(JLOCROOT - 1,8) * int(LOCAL_M,8)
397 & + int(JLOCROOT - 1,8) * int(LOCAL_M,8)
644 INTEGER LOCAL_M, LOCAL_N, ILOCROOT, JLOCROOT, local
687 LOCAL_M = numroc( root%ROOT_SIZE, root%MBLOCK,
689 LOCAL_M = max( 1, LOCAL_M )
692 PTR_ROOT = LA - int(LOCAL_M,8) * int(LOCAL_N,8) + 1_8
749 A( PTR_ROOT + int(JLOCROOT - 1,8) * int(LOCAL_M,8)
[all …]

123456