Télécharger la plaquette Cast3M


fr en

Télécharger objet.eso

Retour à la liste

Numérotation des lignes : 

objet

  1. C OBJET     SOURCE    JC220346  18/12/04    21:15:52     9991           
  2.       SUBROUTINE OBJET
  3. * FONCTION:
  4. * ---------
  5. *
  6. *     DEFINIR UN OBJET DE TYPE 'OBJET'
  7. * PHRASE D'APPEL (EN GIBIANE):
  8. * ----------------------------
  9. *
  10. *     A = OBJET B ;
  11. *
  12. * CREATION D'UN OBJET  DE CLASSE B :
  13. *
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8 (A-H,O-Z)
  16. -INC CCNOYAU
  17. -INC SMTABLE
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21.       CHARACTER*8       TYPOBJ
  22.       CHARACTER*(LONOM) ICHA
  23.       LOGICAL LOGI
  24.       CHARACTER*72 SOUTYP
  25.  
  26.       LOGI=.FALSE.
  27.       IPO=0
  28.       IPLAMO=0
  29.  
  30.       M=0
  31.       SEGINI MTABLE
  32.       IPTABL = MTABLE
  33. * lecture de la procedur sans la lire et initialisation des methodes
  34. * generiques des objets tables
  35.       CALL LIROBJ('PROCEDUR',IRET,1,IRETOU)
  36.       IF (IERR.NE.0) RETURN
  37.       CALL QUENOM(ICHA)
  38.       CALL REFUS
  39.       CALL ECCTAB(IPTABL,'MOT     ',0,0.D0,'CLASSE',LOGI,IRET,
  40.      $      'MOT     ',0, 0.D0, ICHA(1:LONOM),LOGI,IRET)
  41. * mettre ici les methodes génériques
  42.       CALL ECCTAB(IPTABL,'METHODE',0,0.D0,'METHODE',LOGI,IPO,
  43.      $        'MOT',0,0.D0,'METHODE',LOGI,0)
  44.       ICHA(1:4)='HERI'
  45.       CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'HERITE',LOGI,IPO,
  46.      $        'MOT     ',0,0.D0,ICHA(1:4),LOGI,IPLAMO)
  47.       ICHA(1:4)='ANNU'
  48.       CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'OUBLIER',LOGI,IPO,
  49.      $        'MOT     ',0,0.D0,ICHA(1:4),LOGI,IPLAMO)
  50.        CALL ECROBJ ('OBJET',IPTABL)
  51.        CALL ECROBJ ('OBJET',IPTABL)
  52.       RETURN
  53.       END
  54.  
  55.  
  56.  
  57.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales