Procédures | Cast3M

* 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 ;