Sources Esope | Cast3M

modsrc
C MODSRC    SOURCE    SP204843  24/03/29    21:15:05     11878          
      subroutine modsrc(momodl,nmod)
 
      implicit integer(i-n)
      implicit real*8(a-h,o-z)
      CHARACTER*16 MOMODL(*)
*
      nmod=4
      MOMODL(1)='GAUSSIENNE'
      MOMODL(2)='SPHERIQUE'
      MOMODL(3)='ELLIPTIQUE'
      MOMODL(4)='ELARGIE'
 
      return
      end