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