Esope source files

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