OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
cfac_omp_m.F File Reference

Go to the source code of this file.

Modules

module  cmumps_fac_omp_m

Functions/Subroutines

subroutine cmumps_fac_omp_m::cmumps_fac_l0_omp (n, liw, nstk_steps, nd, fils, step, frere, dad, istep_to_iniv2, tab_pos_in_pere, ptrist, ptrast, pimaster, pamaster, ptrarw, ptraiw, itloc, rhs_mumps, rinfo, nbroot, nbrtot, nbroot_under_l0, uu, icntl, ptlust_s, ptrfac, info, keep, keep8, procnode_steps, slavef, comm_nodes, myid_nodes, bufr, lbufr, lbufr_bytes, intarr, dblarr, root, perm, nelt, frtptr, frtelt, lptrar, comm_load, ass_irecv, seuil, seuil_ldlt_niv2, mem_distrib, ne, dkeep, pivnul_list, lpn_list, lpool_b_l0_omp, ipool_b_l0_omp, l_virt_l0_omp, virt_l0_omp, virt_l0_omp_mapping, l_phys_l0_omp, phys_l0_omp, perm_l0_omp, ptr_leafs_l0_omp, l0_omp_mapping, ll0_omp_mapping, thread_la, mumps_tps_arr, cmumps_tps_arr, nstepsw, opassw, opeliw, nelvaw, comp, maxfrw, nmaxnpivw, npvw, noffnegw, nb22t1w, nbtinyw, det_expw, det_mantw, det_signw, lrgroups, l0_omp_factors, ll0_omp_factors, i4_l0_omp, nbstats_i4, nbcols_i4, i8_l0_omp, nbstats_i8, nbcols_i8)
subroutine cmumps_fac_omp_m::cmumps_set_maxs_maxis_thread (maxs_base_relaxed8th, maxis_base_relaxedth, blr_strat, keep, i4_l0_ompth, nbstats_i4, i8_l0_ompth, nbstats_i8)
subroutine cmumps_fac_omp_m::cmumps_ma_eff_mem_dispo (mumps_tps_arr, nbthreads, keep8, keep, n, blr_strat, lpool_p, i8_l0_omp, nbstats_i8, memdispo_underl0)
subroutine cmumps_fac_omp_m::cmumps_l0omp_copy_iw (iw, liw, iwpos, mumps_tps_arr, keep, ptlust, icntl, info)
subroutine cmumps_fac_omp_m::cmumps_perform_copies_init (state, keep8_77_save, nbwaitmem, nbfinished, nbongoingcopies, nbunderl0, keep, keep8)
subroutine cmumps_fac_omp_m::cmumps_perform_copies (thread_id_p, mumps_tps_arr, cmumps_tps_arr, l0_omp_factors, ll0_omp_factors, state, size_copied, nbwaitmem, nbfinished, nbongoingcopies, nbunderl0, myid_nodes, n, slavef, step, ptrast, pamaster, procnode_steps, dad, keep, keep8, info_p)
recursive subroutine cmumps_process_front_niv1 (comm_load, ass_irecv, n, inode, type, typef, la, iw, liw, a, maxfrw, noffnegw, npvw, nb22t1w, nbtinyw, det_expw, det_mantw, det_signw, info_p, uu, seuil, seuil_ldlt_niv2, opeliw, nelvaw, nmaxnpivw, nstepsw, ptrist, ptlust_s, ptrfac, ptrast, step, pimaster, pamaster, ne, posfac, lrlu, lrlus, lrlusm, iptrlu, icntl, keep, keep8, dkeep, pivnul_list, lpn_list, comp, iwpos, iwposcb, procnode_steps, slavef, ifath, comm_nodes, myid_nodes, ipool_p, lpool_p, leaf, perm, nstk_steps, bufr, lbufr, lbufr_bytes, nbfin, root, opassw, itloc, rhs_mumps, fils, ptrarw, ptraiw, intarr, dblarr, nd, frere, dad, lptrar, nelt, frtptr, frtelt, istep_to_iniv2, tab_pos_in_pere, lrgroups, flop_estim_acc)

Variables

integer(8), parameter cmumps_fac_omp_m::underl0 = -20_8
integer(8), parameter cmumps_fac_omp_m::copynotstarted = -19_8
integer(8), parameter cmumps_fac_omp_m::waitmem = -18_8
integer(8), parameter cmumps_fac_omp_m::copyfactorsfinished = -17_8
integer(8), parameter cmumps_fac_omp_m::allocatevidercbencours = -16_8
integer(8), parameter cmumps_fac_omp_m::finished = -15_8

Function/Subroutine Documentation

◆ cmumps_process_front_niv1()

recursive subroutine cmumps_process_front_niv1 ( integer comm_load,
integer ass_irecv,
integer n,
integer inode,
integer type,
integer typef,
integer(8) la,
integer, dimension(liw) iw,
integer liw,
complex, dimension(la) a,
integer maxfrw,
integer noffnegw,
integer npvw,
integer nb22t1w,
integer nbtinyw,
integer det_expw,
complex det_mantw,
integer det_signw,
integer, dimension(2) info_p,
real uu,
real seuil,
real seuil_ldlt_niv2,
double precision opeliw,
integer nelvaw,
integer nmaxnpivw,
integer nstepsw,
integer, dimension(keep(28)) ptrist,
integer, dimension(keep(28)) ptlust_s,
integer(8), dimension (keep(28)) ptrfac,
integer(8), dimension (keep(28)) ptrast,
integer, dimension(n) step,
integer, dimension(keep(28)) pimaster,
integer(8), dimension(keep(28)) pamaster,
integer, dimension(keep(28)) ne,
integer(8) posfac,
integer(8) lrlu,
integer(8) lrlus,
integer(8) lrlusm,
integer(8) iptrlu,
integer, dimension(60) icntl,
integer, dimension(500) keep,
integer(8), dimension(150) keep8,
real, dimension(230) dkeep,
integer, dimension(lpn_list) pivnul_list,
integer lpn_list,
integer comp,
integer iwpos,
integer iwposcb,
integer, dimension(keep(28)) procnode_steps,
integer slavef,
integer ifath,
integer comm_nodes,
integer myid_nodes,
integer, dimension(lpool_p), intent(in) ipool_p,
integer, intent(in) lpool_p,
integer leaf,
integer, dimension( n ) perm,
integer, dimension( keep(28) ) nstk_steps,
integer, dimension( lbufr ) bufr,
integer lbufr,
integer lbufr_bytes,
integer nbfin,
type (cmumps_root_struc) root,
double precision opassw,
integer, dimension( n + keep(253) ) itloc,
complex, dimension(keep(255)) rhs_mumps,
integer, dimension( n ) fils,
integer(8), dimension( lptrar ), intent(in) ptrarw,
integer(8), dimension( lptrar ), intent(in) ptraiw,
integer, dimension(keep8(27)) intarr,
complex, dimension(keep8(26)) dblarr,
integer, dimension( keep(28) ) nd,
integer, dimension( keep(28) ) frere,
integer, dimension( keep(28) ) dad,
integer lptrar,
integer nelt,
integer, dimension( n+1 ) frtptr,
integer, dimension( nelt ) frtelt,
integer, dimension(keep(71)) istep_to_iniv2,
integer, dimension(slavef+2,max(1,keep(56))) tab_pos_in_pere,
integer, dimension(n), intent(in) lrgroups,
double precision flop_estim_acc )

Definition at line 1135 of file cfac_omp_m.F.

1150 USE cmumps_fac_asm_master_m
1151 USE cmumps_fac_asm_master_elt_m
1152 USE cmumps_fac1_lu_m
1153 USE cmumps_fac1_ldlt_m
1154 USE cmumps_struc_def, ONLY : cmumps_root_struc
1155 IMPLICIT NONE
1156 include 'mumps_headers.h'
1157 TYPE (CMUMPS_ROOT_STRUC) :: root
1158 INTEGER COMM_LOAD, ASS_IRECV
1159 INTEGER COMM_NODES, MYID_NODES, TYPE, TYPEF
1160 INTEGER N, LIW, INODE,INFO_P(2)
1161 INTEGER ICNTL(60), KEEP(500)
1162 REAL DKEEP(230)
1163 REAL UU, SEUIL, SEUIL_LDLT_NIV2
1164 INTEGER(8) KEEP8(150)
1165 INTEGER(8) :: LA, POSFAC, LRLU, LRLUS, LRLUSM, IPTRLU
1166 INTEGER IWPOSCB, IWPOS,
1167 & IFATH, SLAVEF, NELVAW, NMAXNPIVW, NSTEPSW
1168 INTEGER IW(LIW),PROCNODE_STEPS(KEEP(28))
1169 INTEGER(8) :: PTRAST (KEEP(28))
1170 INTEGER(8) :: PTRFAC (KEEP(28))
1171 INTEGER(8) :: PAMASTER(KEEP(28))
1172 INTEGER PTRIST(KEEP(28)), PTLUST_S(KEEP(28))
1173 INTEGER STEP(N), PIMASTER(KEEP(28)), NE(KEEP(28))
1174 COMPLEX A(LA)
1175 INTEGER :: MAXFRW, NOFFNEGW, NPVW, NBTINYW
1176 INTEGER, intent(in) :: LRGROUPS(N)
1177 DOUBLE PRECISION OPASSW, OPELIW
1178 COMPLEX DBLARR(KEEP8(26))
1179 INTEGER INTARR(KEEP8(27))
1180 INTEGER ITLOC( N + KEEP(253) ), FILS( N ),
1181 & ND( KEEP(28) ), FRERE( KEEP(28) )
1182 INTEGER DAD( KEEP(28) )
1183 COMPLEX :: RHS_MUMPS(KEEP(255))
1184 INTEGER ISTEP_TO_INIV2(KEEP(71)),
1185 & TAB_POS_IN_PERE(SLAVEF+2,max(1,KEEP(56)))
1186 INTEGER NELT, LPTRAR
1187 INTEGER FRTPTR( N+1 ), FRTELT( NELT )
1188 INTEGER(8), INTENT(IN) :: PTRAIW( LPTRAR ), PTRARW( LPTRAR )
1189 INTEGER LEAF, COMP
1190 INTEGER :: NB22T1W, DET_EXPW, DET_SIGNW
1191 COMPLEX :: DET_MANTW
1192 INTEGER PERM( N )
1193 INTEGER NSTK_STEPS( KEEP(28) )
1194 INTEGER LBUFR, LBUFR_BYTES
1195 INTEGER BUFR( LBUFR )
1196 INTEGER NBFIN
1197 INTEGER :: LPN_LIST
1198 INTEGER :: PIVNUL_LIST(LPN_LIST)
1199 DOUBLE PRECISION FLOP_ESTIM_ACC
1200 INTEGER, INTENT(IN) :: LPOOL_P
1201 INTEGER, INTENT(IN) :: IPOOL_P(LPOOL_P)
1202 INTEGER :: IOLDPS, JOBASS, ETATASS
1203 INTEGER(8) :: POSELT
1204 LOGICAL :: AVOID_DELAYED, SON_LEVEL2
1205 JOBASS = 0
1206 ETATASS = 0
1207.EQ. IF ( KEEP(55) 0 ) THEN
1208 JOBASS = 0
1209 CALL CMUMPS_FAC_ASM_NIV1( COMM_LOAD, ASS_IRECV, N, INODE,
1210 & IW, LIW, A, LA,
1211 & INFO_P, ND, FILS, FRERE, DAD, MAXFRW, root, OPASSW,
1212 & OPELIW, PTRIST, PTLUST_S, PTRFAC, PTRAST, STEP, PIMASTER,
1213 & PAMASTER, PTRARW, PTRAIW, ITLOC, RHS_MUMPS, NSTEPSW,
1214 & SON_LEVEL2,COMP, LRLU, IPTRLU,
1215 & IWPOS, IWPOSCB, POSFAC,
1216 & LRLUS, LRLUSM, ICNTL, KEEP, KEEP8, DKEEP,
1217 & INTARR, KEEP8(27), DBLARR, KEEP8(26),
1218 & NSTK_STEPS, PROCNODE_STEPS, SLAVEF, COMM_NODES,
1219 & MYID_NODES, BUFR, LBUFR, LBUFR_BYTES, NBFIN, IPOOL_P,
1220 & LPOOL_P, LEAF, PERM, ISTEP_TO_INIV2, TAB_POS_IN_PERE,
1221 & JOBASS, ETATASS
1222 & , LRGROUPS
1223 & )
1224 ELSE
1225 CALL CMUMPS_FAC_ASM_NIV1_ELT(COMM_LOAD,ASS_IRECV,NELT,FRTPTR,
1226 & FRTELT, N, INODE, IW, LIW, A,
1227 & LA, INFO_P, ND, FILS, FRERE, DAD, MAXFRW,
1228 & root, OPASSW, OPELIW, PTRIST, PTLUST_S, PTRFAC, PTRAST, STEP,
1229 & PIMASTER, PAMASTER, PTRARW, PTRAIW, ITLOC,
1230 & RHS_MUMPS, NSTEPSW, SON_LEVEL2, COMP, LRLU,
1231 & IPTRLU, IWPOS, IWPOSCB,
1232 & POSFAC, LRLUS, LRLUSM, ICNTL, KEEP, KEEP8, DKEEP,
1233 & INTARR, KEEP8(27), DBLARR, KEEP8(26),
1234 & NSTK_STEPS, PROCNODE_STEPS, SLAVEF,
1235 & COMM_NODES, MYID_NODES, BUFR, LBUFR, LBUFR_BYTES, NBFIN,
1236 & IPOOL_P, LPOOL_P, LEAF, PERM, ISTEP_TO_INIV2,
1237 & TAB_POS_IN_PERE
1238 & , LRGROUPS
1239 & )
1240 ENDIF
1241.LT. IF (INFO_P(1) 0) THEN
1242 RETURN
1243 ENDIF
1244.EQ. AVOID_DELAYED = ( ( IFATH KEEP(20)
1245.OR. &
1246.EQ. & IFATH KEEP(38) )
1247.AND. &
1248.NE. & ( KEEP(60) 0 ) )
1249 POSELT = PTRAST(STEP(INODE))
1250 IOLDPS = PTLUST_S(STEP(INODE))
1251.EQ. IF ( KEEP(50) 0 ) THEN
1252 CALL CMUMPS_FAC1_LU( N, INODE,
1253 & IW, LIW,
1254 & A, LA, IOLDPS,
1255 & POSELT,
1256 & INFO_P(1), INFO_P(2), UU, NOFFNEGW, NPVW, NBTINYW,
1257 & DET_EXPW, DET_MANTW, DET_SIGNW,
1258 & KEEP, KEEP8,
1259 & STEP, PROCNODE_STEPS, MYID_NODES, SLAVEF,
1260 & SEUIL, AVOID_DELAYED, ETATASS,
1261 & DKEEP(1), PIVNUL_LIST(1), LPN_LIST, IWPOS
1262 & , LRGROUPS
1263 & , PERM
1264 & )
1265 ELSE
1266 IW( IOLDPS + 4 + KEEP(IXSZ) ) = 1
1267 CALL CMUMPS_FAC1_LDLT( N, INODE,
1268 & IW, LIW, A,
1269 & LA,
1270 & IOLDPS, POSELT,
1271 & INFO_P(1), INFO_P(2), UU, NOFFNEGW, NPVW,
1272 & NB22T1W, NBTINYW, DET_EXPW, DET_MANTW, DET_SIGNW,
1273 & KEEP, KEEP8, MYID_NODES, SEUIL,
1274 & AVOID_DELAYED,
1275 & ETATASS,
1276 & DKEEP(1), PIVNUL_LIST(1), LPN_LIST, IWPOS
1277 & , LRGROUPS
1278 & , PERM
1279 & )
1280 IW(IOLDPS + 4 + KEEP(IXSZ)) = STEP(INODE)
1281 ENDIF
1282.LT. IF (INFO_P(1) 0) THEN
1283 RETURN
1284 ENDIF
1285 CALL CMUMPS_FAC_STACK( COMM_LOAD, ASS_IRECV, N, INODE, TYPE,
1286 &TYPEF, LA, IW, LIW, A,
1287 &INFO_P(1), INFO_P(2), OPELIW, NELVAW, NMAXNPIVW, PTRIST, PTLUST_S,
1288 &PTRFAC, PTRAST, STEP, PIMASTER, PAMASTER, NE, POSFAC,
1289 &LRLU, LRLUS, LRLUSM, IPTRLU, ICNTL, KEEP,
1290 &KEEP8, DKEEP,
1291 &COMP,IWPOS, IWPOSCB, PROCNODE_STEPS,
1292 &SLAVEF, IFATH, COMM_NODES, MYID_NODES, IPOOL_P,
1293 &LPOOL_P, LEAF, NSTK_STEPS, PERM, BUFR, LBUFR,
1294 &LBUFR_BYTES, NBFIN, root, OPASSW, ITLOC, RHS_MUMPS,
1295 &FILS, DAD, PTRARW, PTRAIW, INTARR, DBLARR, ND, FRERE,
1296 &LPTRAR, NELT, FRTPTR, FRTELT, ISTEP_TO_INIV2, TAB_POS_IN_PERE,
1297 & LRGROUPS,
1298 & FLOP_ESTIM_ACC
1299 &)
1300 RETURN
cmumps_fac1_ldlt_m
Definition cfac_front_LDLT_type1.F:14
cmumps_fac1_lu_m
Definition cfac_front_LU_type1.F:14
cmumps_fac_asm_master_elt_m
Definition cfac_asm_master_ELT_m.F:14
cmumps_fac_asm_master_m
Definition cfac_asm_master_m.F:14
cmumps_struc_def
Definition cmumps_struc_def.F:14