Télécharger method.eso

Retour à la liste

Numérotation des lignes :

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

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