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. -INC CCOPTIO
  11. -INC SMLREEL
  12. REAL*8 RRET
  13. IPROG=0
  14. CALL LIROBJ('LISTREEL',IRET,0,IRETOU)
  15. IF(IRETOU.EQ.0) GOTO 10
  16. MLREEL=IRET
  17. SEGACT MLREEL
  18. GOTO 30
  19. 10 CONTINUE
  20. CALL LIRREE(RRET,1,IRETOU)
  21. IF(IERR.EQ.0) GOTO 20
  22. C *** OUBLI DU OU DES COEFFICIENTS
  23. CALL ERREUR(119)
  24. RETURN
  25. 20 CONTINUE
  26. JG=1
  27. SEGINI MLREEL
  28. PROG(1)=RRET
  29. 30 NBVAL=PROG(/1)
  30. IPROG=MLREEL
  31. SEGDES MLREEL
  32. RETURN
  33. END
  34.  
  35.  

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