Procédures | Cast3M

* TOPOMATE  PROCEDUR  FD218221  25/12/18    21:15:08     12429          
 
************************************************************************
** Procedure called by TOPOPTIM for modifying the material properties to
** account for a given penalized physical density field (Z).
**
** Author:
** Guenhael Le Quilliec (LaMe - Polytech Tours)
**
** Version:
** 2.1 2025/11/28 Updated variable names for TOPOPTIM 4.0.
** 2.0 2024/04/16 List of components is now given as input.
** 1.0 2017/04/18 Initial version
************************************************************************
 
DEBP TOPOMATE mod*'MMODEL' mat*'MCHAML' Z*'MCHAML' lstcpn*'LISTMOTS' ;
 
*   Extract the other components
    lstcpn1 = (mat EXTR 'COMP') SAUF lstcpn ;
 
*   Multiply the desired components by the density field
    Zmat = (EXCO lstcpn mat) * (CHAN Z mod 'RIGIDITE' '') ;
 
*   Add the modified components to the output field
    SI ((DIME lstcpn1) > 0) ;
        Zmat = Zmat ET (mat EXCO lstcpn1) ;
    FINS ;
 
FINP Zmat ;