Esope source files

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