Télécharger aju2.eso

Retour à la liste

Numérotation des lignes :

aju2
  1. C AJU2 SOURCE CHAT 05/01/12 21:20:13 5004
  2. SUBROUTINE AJU2
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5.  
  6. -INC PPARAM
  7. -INC CCOPTIO
  8.  
  9. CALL LIRENT(K,1,IRETOU)
  10. IF (IERR.NE.0) RETURN
  11.  
  12. CALL LIROBJ('LISTREEL',LQ,1,IRETOU)
  13. IF (IERR.NE.0) RETURN
  14.  
  15. CALL LIROBJ('TABLE',ITF,1,IRETOU)
  16. IF (IERR.NE.0) RETURN
  17.  
  18. CALL LIROBJ('TABLE',ITB,1,IRETOU)
  19. IF (IERR.NE.0) RETURN
  20.  
  21. CALL LIROBJ('LISTREEL',LY,1,IRETOU)
  22. IF (IERR.NE.0) RETURN
  23.  
  24. CALL LIROBJ('LISTREEL',LPOI,1,IRETOU)
  25. IF (IERR.NE.0) RETURN
  26.  
  27.  
  28. CALL PDFI(K,LQ,ITF,ITB,LY,LD,A,LPOI)
  29.  
  30. CALL ECROBJ('LISTREEL',LD)
  31.  
  32. CALL ECRREE(A)
  33.  
  34. RETURN
  35.  
  36. END
  37.  
  38.  
  39.  
  40.  

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