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