Télécharger la plaquette Cast3M


fr en

Télécharger aju1.eso

Retour à la liste

Numérotation des lignes : 

aju1

  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