Déterminer le numéro de matériau à partir du nom du matériau

Il arrive que la variante reçoive comme paramètre un matériau avec un nom en clair (par ex. "1.4301 grain 240"). Dans la variante, le matériau peut être redéfini à l'aide d'une fonction. Toutefois, il faut alors indiquer le numéro du matériau et non son nom.

La fonction suivante permet de déterminer, à l'aide du nom du matériau, le numéro de matériau correspondant issu de la configuration du matériau.

C     Déterminer le numéro de matériau à partir du nom du matériau

C     

C     Appel :

C     CALL PBE077 (MATTEXT,IMAT,IRET)

C     

C     Les variables suivantes doivent être définies au préalable :

C     

C     MATTEXT : variable avec le nom du matériau (par ex. "DC01")

C     IMAT    : résultat comme valeur de retour, contient le numéro de matériau

C     IRET    : n'est pas évalué, mais doit être spécifié

C     

C     Exemple :

C     -------------------------------------------------

C     Déterminer le numéro de matériau à partir du nom du matériau

C     -------------------------------------------------

      MATTEXT = "X5CRNI18-10"

C     

      CALL PBE077 (MATTEXT,IMAT,IRET)

C     

C     Utiliser le nouveau numéro de matériau dans le programme principal :

C     

C     NEW DEFINITION OF HEADER-VALUES

      PARAM (45) = IMAT

C