Esope source files

   1 : C VECTAB    SOURCE    CHAT      05/01/13    04:04:52     5004           
   2 :       SUBROUTINE VECTAB(IVX,N,MTABLE)                                           
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : -INC CCOPTIO                                                                    
   6 : -INC SMLREEL                                                                    
   7 : -INC SMTABLE                                                                    
   8 :       LOGICAL LOGIN,LOGRE                                                       
   9 :       CHARACTER*1 CHARIN,CHARRE                                                 
  10 :       CHARACTER*8 TYPOBJ,CHA8                                                   
  11 :       M=N+1                                                                     
  12 :       SEGINI MTABLE                                                             
  13 :       MLOTAB=0                                                                  
  14 :       MLREEL=IVX                                                                
  15 :       DO 1 I=1,N                                                                
  16 :         XVALRE=PROG(I)                                                          
  16 :       CALL ECCTAB(MTABLE,'ENTIER  ',I,XVALIN,CHARIN,LOGIN,IOBIN,                
  17 :      $               'FLOTTANT',IVALRE,XVALRE,CHARRE,LOGRE,IOBRE)               
  18 :     1 CONTINUE                                                                  
  18 :       CALL ECCTAB(MTABLE,'MOT     ',I,XVALIN,'SOUSTYPE',LOGIN,IOBIN,            
  19 :      $               'MOT     ',I,XVALRE,'VECTEUR',LOGRE,IOBRE) 
  20 :       SEGDES MTABLE,MLREEL                
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :