Télécharger lirpro.eso

Retour à la liste

Numérotation des lignes :

  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