2. Organization charts#
2.1. Simplified routine flow chart CALCUL#
Routines names are written in uppercase italics. Only the main steps of the routine are shown.
CALCUL (...)
! Clean up LPAIN, LCHIN, LPAOU, and LCHOU
! We check that the parameters of LPAIN exist in the description of
! the option is that there are no duplicates in LPAIN and LPAOU
! put in COMMON of JEVEUX addresses ! « extension » of CARTES IN [§2] ! various checks
ALCHLO! Allocation of local fields
! associated with bread for the GREL grel taking into account ! neighbours
Loop on the GREL of LIGREL: grel
! When using parallelism “GROUP_ELEM”, you can sometimes ! « jump » a whole GREL if this GREL is not calculated by this processor: goto fin loop grel
INIGRL! Item Allocations “& INEL. XXX “for the GREL grel
EXTRAI! Extraction of local fields associated with LPAIN ! for the GREL grel
ZECHLO! Zero local fields OUT CAUNDF! Addition of UNDEF at the ends of the IN/ OUT fields for ! subsequent checks
TE0000! Call for effective TE000I (elementary calculations)
CAUNDF! Subsequent checks of UNDEF MONTEE! Copy local fields OUT in the fields ! global results
End grel loop
if distributed parallel computing: SDMPIC! Communication MPI
2.2. Simplified EXTRAI routine flowcharts#
EXTRAI (LCHIN,...)
! In the case of finite volumes, all fields must be allocated before ! Loop over the grels to allow access to « neighbours » If finite volumes and if we are before the loop on the grels Loop on the GREL of the LIGREL EXTRA1 End grel loop If not EXTRA1
EXTRA1 (LCHIN,…)
Loop on LCHIN: champ_in if TYPE (field_in) =” CARTE “ EXCART (field_in) if TYPE (field_in) =” CHAM_ELEM EXCHML (field_in) if TYPE (field_in) =” CHAM_NO “ EXCHNO (field_in) if TYPE (field_in) =” RESUELEM EXRESL (field_in) End yes End of loop on LCHIN
EXCART (field_in,…)
EXCAR1
EXCAR1 (field_in,…)
Loop on the elements of GREL: they TRIGD! Retrieving the magnitude range ! by the ima mesh associated with the element iel End of earring
EXCHNO (field_in,...)
Loop on the elements of GREL: they Loop on the knots of the mesh associated with iel: ino TRIGD! Retrieving the magnitude range ! by the ino node of the iel element End of stainless steel buckle End of earring
EXCHML (field_in,…)
Loop on the elements of GREL: they JACOPO! Copy the « end » of the global field into the local field End of earring
EXRESL (same as EXCHML)
2.3. Simplified routine flow chart ALRSLT#
ALRSLT (l_field_out,...)
Loop over the fields in l_champ_out: chout DETRSD (shush)! Destruction of the field So type (shout) =” CHAM_ELEM “ ALCHML (shush) So type (shout) =” RESUELEM “ ALRESL (shush) Ending yes End of loop chout
! COMMON CAII07 Update