Télécharger la plaquette Cast3M


fr en

Télécharger lirpro.eso

Retour à la liste

Numérotation des lignes : 

lirpro

  1. C LIRPRO    SOURCE    CHAT      05/01/13    01:22:01     5004
  2.       SUBROUTINE LIRPRO(NBVAL,IPROG)
  3. C
  4. C    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C    C LECTURE D'UN REEL OU D'UNE LISTE DE REEL C
  6. C    C          CREATION D'UN MLREEL            C
  7. C    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  8. C
  9.       IMPLICIT INTEGER(I-N)
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMLREEL
  14.       REAL*8 RRET
  15.       IPROG=0
  16.       CALL LIROBJ('LISTREEL',IRET,0,IRETOU)
  17.       IF(IRETOU.EQ.0) GOTO 10
  18.       MLREEL=IRET
  19.       SEGACT MLREEL
  20.       GOTO 30
  21.    10 CONTINUE
  22.       CALL LIRREE(RRET,1,IRETOU)
  23.       IF(IERR.EQ.0) GOTO 20
  24. C  *** OUBLI DU OU DES COEFFICIENTS
  25.       CALL ERREUR(119)
  26.       RETURN
  27.    20 CONTINUE
  28.       JG=1
  29.       SEGINI MLREEL
  30.       PROG(1)=RRET
  31.    30 NBVAL=PROG(/1)
  32.       IPROG=MLREEL
  33.       SEGDES MLREEL
  34.       RETURN
  35.       END
  36.  
  37.  

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