Télécharger aju1.eso

Retour à la liste

Numérotation des lignes :

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

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