Télécharger herite.eso

Retour à la liste

Numérotation des lignes :

  1. C HERITE SOURCE CHAT 06/03/16 21:18:20 5336
  2. SUBROUTINE HERITE
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. -INC SMBLOC
  6. -INC CCNOYAU
  7. -INC SMTABLE
  8. CALL LIROBJ('OBJET ',MTABLE,1,IRETOU)
  9. IF(IERR.NE.0) RETURN
  10. CALL LIROBJ('OBJET ',MTAB1,0,IRETOU)
  11. if( iretou.eq.0) then
  12. IF(MOBJCO.NE.0) THEN
  13. MTAB1=MTABLE
  14. MTABLE=MOBJCO
  15. ELSE
  16. MOTERR(1:8)='OBJET '
  17. CALL ERREUR(37)
  18. ENDIF
  19. ENDIF
  20. IF(IERR.NE.0) RETURN
  21. SEGACT MTAB1
  22. SEGACT MTABLE*MOD
  23. IN=MTAB1.MLOTAB
  24. DO 1 I =1,IN
  25. IF( MTAB1.MTABTV(I) .NE.'PROCEDUR') GO TO 1
  26. IF( MTAB1.MTABTI(I) .NE.'METHODE ') GO TO 1
  27. IOBJ = MTAB1.MTABIV(I)
  28. IMET = MTAB1.MTABII(I)
  29. DO 2 K=1,MLOTAB
  30. IF(MTABII(K).NE.IMET) GO TO 2
  31. IF(MTABTI(K).NE.'METHODE ') GO TO 2
  32. * l'indice existe on remplace
  33. MTABIV(K)=IOBJ
  34. MTABTV(K)='PROCEDUR'
  35. GO TO 1
  36. 2 CONTINUE
  37. * l'indice n'existe pas on l'ajoute
  38. M = MTABII(/1)
  39. IF(M.EQ.MLOTAB) THEN
  40. M = M + 20
  41. SEGADJ MTABLE
  42. ENDIF
  43. MLOTAB=MLOTAB+1
  44. MTABII(MLOTAB) = IMET
  45. MTABIV(MLOTAB) = IOBJ
  46. MTABTI(MLOTAB)='METHODE '
  47. MTABTV(MLOTAB) = 'PROCEDUR'
  48. 1 CONTINUE
  49. SEGDES MTAB1,MTABLE
  50. RETURN
  51. END
  52.  
  53.  

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