7. example

Take the example of storing mechanical vibration modes (mode_meca), we have calculated 5 modes and we store them in a SD_RESULTAT structure.

Step 1: Creating the SD_RESULTAT structure

NBMODE = 5

CALL RSCRSD (MODES, 'MODE_MECA', NBMODE)

Step 2: eigenvector storage

DO 10 KM = 1, NBMODE

...

CALL RSEXCH ('', MODES, 'DEPL', IM, CHAMNO, IER)

...

CALL JEVEUO (CHAMNO//'. VALE ',' E ', LVALE)

DO 12 IEQ = 1, NEQ

ZR (LVALE + IEQ -1) =...

12 CONTINUE

CALL RSNOCH (MODES, 'DEPL', IM)

...

Step 3: storage of access variables and modal parameters

CALL RSADPA (MODES, 'E', 1, 'FREQ', IM, 0, LFREQ, K8B)

ZR (LFREQ) =...

CALL RSADPA (MODES, 'E', 1, 'NUME_MODE', IM, 0, LNUME, K8B)

IF (LNUME) =...

CALL RSADPA (MODES, 'E', 1, 'NORME', IM, 0, LNORM, K8B)

ZK24 (LNORM) =...

...