3. Ajout Option dans la SD résultat#
On doit ajouter l’option SIGM_ELEM dans la SD résultats bibfor/resu_util/rscrsd.F90:
[...]
! ------------------------------------------------------------------
! For mechanic
! ------------------------------------------------------------------
integer, parameter :: nbFieldMeca = 132
character(len=16), parameter :: fieldMeca(nbFieldMeca) = (/ &
'DEPL ', 'VITE ', 'ACCE ', &
'DEPL_ABSOLU ', 'VITE_ABSOLU ', 'ACCE_ABSOLU ', &
'EFGE_ELNO ', 'EFGE_NOEU ', 'EGRU_ELNO ', &
'EPSI_ELGA ', 'EPSI_ELNO ', &
'EPSI_NOEU ', 'SIEF_ELGA ', 'SIMY_ELGA ', &
'SIGM_ELGA ', 'EFGE_ELGA ', 'SIGM_ELEM ', &
[...]
Attention à modifier le nombre de champs nbFieldMeca et avoir la bonne longueur de chaîne.