Télécharger respro.eso

Retour à la liste

Numérotation des lignes :

  1. C RESPRO SOURCE PV 06/04/20 21:16:14 5410
  2. SUBROUTINE RESPRO
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC CCOPTIO
  6. -INC SMBLOC
  7. -INC CCNOYAU
  8. -INC CCASSIS
  9. CHARACTER*(8) MMM
  10. IARGUM=MARGUM
  11. IF(IARGUM.EQ.0) THEN
  12. CALL ERREUR (154)
  13. RETURN
  14. ENDIF
  15. SEGACT IARGUM*MOD
  16. C
  17. C SAUVETAGE DES POINTEURS ET DES TYPES DES RESULTATS
  18. C
  19. MTRESU=ITRESU
  20. MVRESU=IVRESU
  21. MFRESU=IFRESU
  22. IF(MTRESU.EQ.0) THEN
  23. NRES=0
  24. SEGINI MTRESU,MVRESU,MFRESU
  25. IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU,
  26. $ MVRESU,MFRESU
  27. IVRESU=MVRESU
  28. ITRESU=MTRESU
  29. IFRESU=MFRESU
  30. ELSE
  31. IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU,
  32. $ MVRESU,MFRESU
  33. SEGACT MTRESU,MVRESU,MFRESU
  34. NRES=IVARES(/1)
  35. ENDIF
  36. 432 CONTINUE
  37. MMM= ' '
  38. LECTAB=1
  39. * LODESL = .TRUE.
  40. call setass(1)
  41. CALL LIRABJ(MMM,IRET,0,IRETOU)
  42. * LODESL = .FALSE.
  43. call setass(0)
  44. * write(6,*) ' respro mmmiret ', mmm ,iret
  45. IF ( IRETOU . NE . 0) THEN
  46. NRES = NRES + 1
  47. SEGADJ MVRESU,MTRESU,MFRESU
  48. MTYRES(NRES) = MMM
  49. IVARES(NRES)=IRET
  50. IF(MMM.EQ.'FLOTTANT') THEN
  51. if(nbesc.ne.0) segact ipiloc
  52. XFLRES(NRES)=XIFLOT(IRET)
  53. if(nbesc.ne.0) segdes ipiloc
  54. ENDIF
  55. GO TO 432
  56. ENDIF
  57. SEGDES MVRESU,MTRESU,MFRESU
  58. SEGDES IARGUM
  59. LECTAB=0
  60. INTEXT = 0
  61. RETURN
  62. END
  63.  
  64.  
  65.  

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