Télécharger la plaquette Cast3M


fr en

Télécharger aju2.eso

Retour à la liste

Numérotation des lignes : 

aju2

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

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