7. Exemple

Prenons l’exemple du stockage des modes de vibration mécanique (mode_meca), on a calculé 5 modes et on les stocke dans une structure SD_RESULTAT.

Étape 1 : création de la structure SD_RESULTAT

NBMODE = 5

CALL RSCRSD ( MODES, 'MODE_MECA', NBMODE )

Étape 2 : stockage des vecteurs propres

DO 10 IM = 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)

...

Étape 3 : stockage des variables d’accès et paramètres modaux

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

ZR(LFREQ) = ...

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

ZI(LNUME) = ...

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

ZK24(LNORM) = ...

...