Télécharger trback.eso

Retour à la liste

Numérotation des lignes :

  1. C TRBACK SOURCE CB215821 19/11/15 21:16:19 10378
  2. SUBROUTINE TRBACK
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. -INC SMBLOC
  6. -INC CCNOYAU
  7. -INC CCASSIS
  8. CHARACTER*4 MFIN(4)
  9. CHARACTER*8 CTYP
  10. DATA MFIN/'FIN ','REPE','FINP','FINM'/
  11. IIR=IERR
  12. IERR=0
  13. CALLGINT2
  14.  
  15. C MTXBLC=MTXBL
  16. C SEGACT MTXBLC
  17. C MTXBLL=MTXBLC(MBCOUR)
  18. C SEGACT MTXBLL
  19. INTERR(1)=MBCOUR
  20. * WRITE(6,FMT='('' MBCOUR NUINST '',2I6)')MBCOUR,NUINST
  21. C SEGDES MTXBLL
  22. CALL ERREUR(-253)
  23. CALL TRBAC
  24. if(nbesc.ne.0) segact ipiloc
  25. IERR=0
  26. if(MISAUP.EQ.1) then
  27. CALL NOUTRU
  28. MBFONC=1
  29. RETURN
  30. ENDIF
  31. 1 CONTINUE
  32. CALL NOUTRU
  33. LECTAB=1
  34. CALL LIRMOT(MFIN,4,IRETOU,0)
  35. if(nbesc.ne.0) segact ipiloc
  36. IF (IRETOU.EQ.0) THEN
  37. GOTO 1
  38. ELSEIF ( IRETOU.EQ.2) THEN
  39. CALL REPETE
  40. MBCONT=1
  41. GO TO 1
  42. ELSEIF ( IRETOU.EQ.3.OR.IRETOU.EQ.4) THEN
  43. ILONG=LMNNOM
  44. MOTERR(1:8)=' '
  45. IF(ILONG.EQ.0) then
  46. if(nbesc.ne.0) SEGDES,IPILOC
  47. RETURN
  48. ENDIF
  49. DO 10 I=1,ILONG
  50. IF(INOOB1(I).EQ.1) GO TO 10
  51. IF(INOOB2(I).NE.'PROCEDUR') GO TO 10
  52. IF(MBLPRO.NE.ipipr1(IOUEP2(I))) GO TO 10
  53. IP=INOOB1(I)
  54. IDEBCH=IPCHAR(IP)
  55. IFINCH=IPCHAR(IP+1)-1
  56. MOTERR(1:8)=ICHARA(IDEBCH:IFINCH)
  57. GO TO 11
  58. 10 CONTINUE
  59. 11 CONTINUE
  60. IERR=IIR
  61. CALLGINT2
  62. CALL FINPRO
  63. IIR=IERR
  64. IERR=0
  65. CALLGINT2
  66. IF(MBLSUP.NE.0.AND.MBFONC.EQ.0) THEN
  67. MTXBLC=MTXBL
  68. C MTXBLL=MTXBLC(MBCOUR)
  69. C SEGACT MTXBLL
  70. INTERR(1)= MBCOUR
  71. CALL ERREUR(-255)
  72. C SEGDES MTXBLL
  73. ELSE
  74. CALL ERREUR(-254)
  75. ENDIF
  76. CALL TRBAC
  77. if(nbesc.ne.0) SEGDES,IPILOC
  78. IF(MBLSUP.EQ.0.OR.MBFONC.NE.0) GO TO 2
  79. ELSEIF ( IRETOU.EQ.1) THEN
  80. MBCONT=1
  81. CALL FIN
  82. IF (MBLSUP.EQ.0.OR.MBFONC.NE.0) GO TO 2
  83. ENDIF
  84. GO TO 1
  85. 2 CONTINUE
  86. if(nbesc.ne.0) SEGDES,IPILOC
  87. IERR=IIR
  88. CALLGINT2
  89. RETURN
  90. END
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  

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