Télécharger ecpi.eso

Retour à la liste

Numérotation des lignes :

  1. C ECPI SOURCE CB215821 19/11/15 21:15:13 10378
  2. SUBROUTINE ECPI( ITAMP , MTEM )
  3. C
  4. C **** ECRITURE DANS LA PILE INTERNE D'UN OBJET DE TYPE MTEM
  5. C **** ITAMP(1) EST LE NUMERO DE LA PILE DEFINITIVE
  6. C **** ITAMP(2) EST LA PLACE DANS CETTE PILE DEFINITIVE
  7.  
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8 (A-H,O-Z)
  10.  
  11. -INC CCNOYAU
  12. -INC CCOPTIO
  13.  
  14. DIMENSION ITAMP(2)
  15. CHARACTER*(*) MTEM
  16. CHARACTER*8 MTE,MTA
  17.  
  18. IF (IERR.GT.1) RETURN
  19.  
  20. C POUR INHIBER LA LECTURE DE CARTES
  21. NOMLU = 1
  22. IJDIM = JPOOB1(/1)
  23. INCIJD= MAX(INT(REAL(IJDIM)*0.2D0),50)
  24. DO 34 IAUX=IBPILE,IHPILE
  25. IF(JPOOB1(IAUX)) GOTO 36
  26. 34 CONTINUE
  27.  
  28. IAUX=IHPILE+1
  29. 36 CONTINUE
  30. IBPILE=IAUX
  31. I=IBPILE-1
  32. IF (I.LT.1) GOTO 30
  33. JPOOB1(I)= .TRUE.
  34. JPOOB2(I)= ITAMP(2)
  35. JPOOB4(I)= ITAMP(1)
  36. JTYOBJ(I)= MTEM
  37. IBPILE = I
  38. RETURN
  39.  
  40. 30 CONTINUE
  41. C***************************** ON DOIT DECALER LA PILE POUR METTRE
  42. C***************************** LA NOUVELLE DONNEE EN PREMIER
  43. N=IHPILE+INCIJD
  44. IF(N.GT.IJDIM) SEGADJ,JPOOB
  45.  
  46. DO 32 I=N,INCIJD+1,-1
  47. JPOOB1(I)=JPOOB1(I-INCIJD)
  48. JPOOB2(I)=JPOOB2(I-INCIJD)
  49. JPOOB4(I)=JPOOB4(I-INCIJD)
  50. JTYOBJ(I)=JTYOBJ(I-INCIJD)
  51. 32 CONTINUE
  52.  
  53. JPOOB1(INCIJD)=.TRUE.
  54. JPOOB2(INCIJD)=ITAMP(2)
  55. JPOOB4(INCIJD)=ITAMP(1)
  56. JTYOBJ(INCIJD)=MTEM
  57. IHPILE=N
  58. IBPILE=INCIJD
  59.  
  60. END
  61.  
  62.  

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