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


.. code-block:: text

    NBMODE = 5

    CALL RSCRSD ( MODES, 'MODE_MECA', NBMODE )

Étape 2 : stockage des vecteurs propres


.. code-block:: text

    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


.. code-block:: text

    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) = ...

    ...