Télécharger aju2.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  6.  
  7. CALL LIRENT(K,1,IRETOU)
  8. IF (IERR.NE.0) RETURN
  9.  
  10. CALL LIROBJ('LISTREEL',LQ,1,IRETOU)
  11. IF (IERR.NE.0) RETURN
  12.  
  13. CALL LIROBJ('TABLE',ITF,1,IRETOU)
  14. IF (IERR.NE.0) RETURN
  15.  
  16. CALL LIROBJ('TABLE',ITB,1,IRETOU)
  17. IF (IERR.NE.0) RETURN
  18.  
  19. CALL LIROBJ('LISTREEL',LY,1,IRETOU)
  20. IF (IERR.NE.0) RETURN
  21.  
  22. CALL LIROBJ('LISTREEL',LPOI,1,IRETOU)
  23. IF (IERR.NE.0) RETURN
  24.  
  25.  
  26. CALL PDFI(K,LQ,ITF,ITB,LY,LD,A,LPOI)
  27.  
  28. CALL ECROBJ('LISTREEL',LD)
  29.  
  30. CALL ECRREE(A)
  31.  
  32. RETURN
  33.  
  34. END
  35.  
  36.  
  37.  
  38.  

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