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


.. code-block:: text

    NBMODE = 5

    CALL RSCRSD (MODES, 'MODE_MECA', NBMODE)

Step 2: eigenvector storage


.. code-block:: text

    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


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

    IF (LNUME) =...

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

    ZK24 (LNORM) =...

    ...