C OBJET     SOURCE    JC220346  18/12/04    21:15:52     9991           
      SUBROUTINE OBJET
* FONCTION:
* ---------
*
*     DEFINIR UN OBJET DE TYPE 'OBJET'
* PHRASE D'APPEL (EN GIBIANE):
* ----------------------------
*
*     A = OBJET B ;
*
* CREATION D'UN OBJET  DE CLASSE B :
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC CCNOYAU
-INC SMTABLE

-INC PPARAM
-INC CCOPTIO
      CHARACTER*8       TYPOBJ
      CHARACTER*(LONOM) ICHA
      LOGICAL LOGI
      CHARACTER*72 SOUTYP

      LOGI=.FALSE.
      IPO=0
      IPLAMO=0

      M=0
      SEGINI MTABLE
      IPTABL = MTABLE
* lecture de la procedur sans la lire et initialisation des methodes
* generiques des objets tables
      CALL LIROBJ('PROCEDUR',IRET,1,IRETOU)
      IF (IERR.NE.0) RETURN
      CALL QUENOM(ICHA)
      CALL REFUS
      CALL ECCTAB(IPTABL,'MOT     ',0,0.D0,'CLASSE',LOGI,IRET,
     $      'MOT     ',0, 0.D0, ICHA(1:LONOM),LOGI,IRET)
* mettre ici les methodes génériques
      CALL ECCTAB(IPTABL,'METHODE',0,0.D0,'METHODE',LOGI,IPO,
     $        'MOT',0,0.D0,'METHODE',LOGI,0)
      ICHA(1:4)='HERI'
      CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'HERITE',LOGI,IPO,
     $        'MOT     ',0,0.D0,ICHA(1:4),LOGI,IPLAMO)
      ICHA(1:4)='ANNU'
      CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'OUBLIER',LOGI,IPO,
     $        'MOT     ',0,0.D0,ICHA(1:4),LOGI,IPLAMO)
       CALL ECROBJ ('OBJET',IPTABL)
       CALL ECROBJ ('OBJET',IPTABL)
      RETURN
      END