$$$$ TOPOEVOL
* TOPOEVOL  PROCEDUR  FD218221  25/12/18    21:15:06     12429          

************************************************************************
** Procedure called by TOPOPTIM to update parameter values from their
** associated evolutions.
**
** Author:
** Guenhael Le Quilliec (LaMe - Polytech Tours)
**
** Version:
** 2.0 2025/11/17 Made compatible with TOPOPTIM V4.
** 1.0 2021/04/15 Initial version
************************************************************************

DEBP TOPOEVOL tab*'TABLE' ;

* Input data
* **********

Wtab = tab.'WTABLE' ;
Ltab = Wtab.'LOGIQUE' ;

* Update parameters from their corresponding evolutions
* *****************************************************

* Loop over evolutions
REPE itr (DIME Wtab.'EVOLUTIONS') ;

*   Get the name of the parameter
    evonam = EXTR Wtab.'EVOLUTIONS' &itr ;

*   If this parameter exists
    SI (EXIS tab evonam) ;

*       If it is an evolution
        SI (EGA (TYPE tab.evonam) 'EVOLUTIO') ;

*           Update the value of this parameter for the current cycle
            Wtab.evonam = IPOL (FLOT Wtab.'CYCLE') tab.evonam ;

        SINO ;

*           Otherwise, simply save its value in the work table
            Wtab.evonam = tab.evonam ;

        FINS ;

    FINS ;

FIN itr ;

FINP ;

$$$$