Télécharger la plaquette Cast3M


fr en

Télécharger modsrc.eso

Retour à la liste

Numérotation des lignes : 

modsrc

  1. C MODSRC    SOURCE    MB234859  25/08/26    21:15:16     12343          
  2. C=======================================================================
  3. C=  Objet MODELE  -  Cas de la formulation 'SOURCE'                    =
  4. C=                                                                     =
  5. C=  Definition des noms de modeles de MATERIAU                         =
  6. C=======================================================================
  7. C
  8.       SUBROUTINE MODSRC(MOMODL,NMOD)
  9. C
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8(A-H,O-Z)
  12. C
  13.       CHARACTER*16 MOMODL(*)
  14. C
  15.       NMOD=4
  16.       MOMODL(1)='GAUSSIENNE      '
  17.       MOMODL(2)='SPHERIQUE       '
  18.       MOMODL(3)='ELLIPTIQUE      '
  19.       MOMODL(4)='ELARGIE         '
  20.  
  21.       END
  22.  
  23.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales