Sources Esope | Cast3M

modray
C MODRAY    SOURCE    CHAT      12/06/07    21:15:45     7389
      subroutine modray(momodl,nmod)
      implicit integer(i-n)
      implicit real*8(a-h,o-z)
      CHARACTER*16 MOMODL(*)
      nmod=9
      MOMODL(1)='FAC_A_FAC'
      MOMODL(2)='INFINI'
      MOMODL(3)='CAVITE'
      MOMODL(4)='SYMETRIE'
      MOMODL(5)='CONVEXE'
      MOMODL(6)='FERME'
      MOMODL(7)='TRAYO'
      MOMODL(8)='NGAU'
      MOMODL(9)='DANG'
 
      return
      end