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

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