Télécharger respro.eso

Retour à la liste

Numérotation des lignes :

  1. C RESPRO SOURCE CB215821 19/12/03 21:15:01 10403
  2. SUBROUTINE RESPRO
  3.  
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6.  
  7. -INC CCOPTIO
  8. -INC SMBLOC
  9. -INC CCNOYAU
  10. -INC CCASSIS
  11.  
  12. CHARACTER*(8) MMM
  13.  
  14. IARGUM=MARGUM
  15. IF(IARGUM.EQ.0) THEN
  16. MOTERR=' '
  17. CALL ERREUR (154)
  18. RETURN
  19. ENDIF
  20. C
  21. C SAUVETAGE DES POINTEURS ET DES TYPES DES RESULTATS
  22. C
  23. SEGACT,IARGUM
  24. MTRESU=ITRESU
  25. IF(MTRESU.EQ.0) THEN
  26. NRES=10
  27. SEGINI,MTRESU
  28. MTRESU.NRESI=0
  29. IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU
  30. SEGACT IARGUM*MOD
  31. ITRESU=MTRESU
  32. ELSE
  33. IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU
  34. SEGACT,MTRESU*MOD
  35. NRES=IVARES(/1)
  36. ENDIF
  37.  
  38. C On passe en INTEGER FORTRAN plutot que ARGUMENT DE SEGMENT (vitesse)
  39. MRESI = MTRESU.NRESI
  40.  
  41. 432 CONTINUE
  42. MMM =' '
  43. LECTAB = 1
  44. INTEXT = 1
  45. C LODESL =.TRUE.
  46. CALL SETASS(1)
  47. CALL LIRABJ(MMM,IRET,0,IRETOU)
  48. C LODESL = .FALSE.
  49. CALL SETASS(0)
  50. C write(6,*) ' respro mmmiret ', mmm ,iret
  51. IF (IRETOU .NE. 0) THEN
  52. MRESI = MRESI + 1
  53. IF(MRESI .GT. NRES)THEN
  54. NRES = MRESI + MAX(INT(REAL(MRESI * 0.2)),10)
  55. SEGADJ,MTRESU
  56. ENDIF
  57. MTYRES(MRESI) = MMM
  58. IVARES(MRESI) = IRET
  59. IF(MMM.EQ.'FLOTTANT') THEN
  60. if(nbesc.ne.0) SEGACT,IPILOC
  61. XFLRES(MRESI)=XIFLOT(IRET)
  62. if(nbesc.ne.0) SEGDES,IPILOC
  63. ENDIF
  64. GOTO 432
  65. ENDIF
  66.  
  67.  
  68. C On repasse MRESI dans MTRESU.NRESI
  69. MTRESU.NRESI = MRESI
  70.  
  71. LECTAB=0
  72.  
  73. END
  74.  
  75.  

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