Télécharger method.eso

Retour à la liste

Numérotation des lignes :

  1. C METHOD SOURCE CB215821 16/04/15 21:15:32 8907
  2. SUBROUTINE METHOD
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCOPTIO
  6. -INC CCNOYAU
  7. -INC SMTABLE
  8. -INC SMBLOC
  9. -INC CCASSIS
  10. CHARACTER*(8)INOMP,CHAANC
  11. CHARACTER*72 ICHA
  12. LOGICAL LOGI
  13.  
  14. XX=0.D0
  15.  
  16. CALL LIROBJ ('OBJET ',MTABLE,0,IRETOU)
  17. IF(IRETOU.EQ.0) THEN
  18. IF(MOBJCO.NE.0) THEN
  19. MTABLE=MOBJCO
  20. ELSE
  21. MOTERR(1:8)='OBJET '
  22. CALL ERREUR(37)
  23. ENDIF
  24. ENDIF
  25. * write(6,*) ' 1 method mtable',mtable
  26. IF(IERR.NE.0) RETURN
  27. * lecture du nom de la methode en fait on cherche sa position
  28. * dans la pile des chaines
  29. ILON=1
  30. CALL QUETYP (CHAANC ,0,IRETOU)
  31. * write(6,*)' method chaanc' , chaanc
  32. IF(IRETOU.EQ.0) RETURN
  33. IF(CHAANC.EQ.'ENTIER ') THEN
  34. CALL LIRENT ( II,1,IRETOU)
  35. ELSEIF(CHAANC.EQ.'FLOTTANT') THEN
  36. CALL LIRREE(XRET,1,IRETOU)
  37. ELSEIF(CHAANC.EQ.'MOT ') THEN
  38. CALL LIRCHA(ICHA,1,ILON)
  39. ELSEIF(CHAANC.EQ.'LOGIQUE ') THEN
  40. CALL LIRLOG(LOGI,1,IRETOU)
  41. ELSE
  42. CALL LIROBJ(CHAANC,IRET,1,IRETOU)
  43. * write(6,*) ' 2 method mtable',iret
  44. ENDIF
  45. * write(6,*) ' method iret imotlu jpoob2',
  46. * $ iret,imotlu,jpoob2(imotlu)
  47. IF(JPOOB2(IMOTLU).EQ.0) THEN
  48. C PAS DE NOM A LA DERNIERE DONNEE LUE
  49. CALL ERREUR(21)
  50. RETURN
  51. ENDIF
  52. IP=INOOB1(JPOOB2(IMOTLU))
  53. IF(IP.NE.1) THEN
  54. if(nbesc.ne.0) segact ipiloc
  55. IDEBCH=IPCHAR(IP)
  56. IFINCH= IPCHAR(IP+1)-1
  57. ICHA=ICHARA(IDEBCH:IFINCH)
  58. ILON=IFINCH-IDEBCH+1
  59. if(nbesc.ne.0) segdes ipiloc
  60. ENDIF
  61. * lecture de la procedur
  62. CALL LIROBJ ('PROCEDUR',IVAL,1,IRETOU)
  63. IF(IERR.NE.0) RETURN
  64. CALL ECCTAB (MTABLE, 'METHODE ',IP,XX,ICHA(1:ILON),LOGI,IP,
  65. $ 'PROCEDUR',IVAL,XX,ICHA,LOGI,IVAL)
  66. RETURN
  67. END
  68.  
  69.  
  70.  

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