Télécharger si.eso

Retour à la liste

Numérotation des lignes :

si
  1. C SI SOURCE CB215821 19/11/15 21:16:10 10378
  2. C INSTRUCTION SI
  3. C
  4. SUBROUTINE SI
  5. IMPLICIT INTEGER(I-N)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCNOYAU
  10. -INC SMBLOC
  11. -INC CCREDLE
  12. *
  13. character*40 chauer
  14. LOGICAL LOG
  15. CHARACTER*8 IJCH
  16. CHARACTER*4 MCLE(7)
  17. DIMENSION IMOTCO(7)
  18. SAVE IMOTCO
  19. DATA IMOTCO(1)/-1/
  20. DATA MCLE /'SI ','SINO','FINS','REPE','FIN ','FINP','FINM'/
  21. CALL LIRLOG(LOG,1,IRETOU)
  22. IF (IERR.NE.0) RETURN
  23. IPSI=0
  24. IREPET=0
  25. ilupoy=0
  26. IF (LOG) RETURN
  27. 1 CONTINUE
  28. CALL NOUTRU
  29. if(ilupoy.eq.0) then
  30. lectab=1
  31. call quetyp (ijch, 1,iretou)
  32. sredle=iredle
  33. chauer = text(1:40)
  34. endif
  35. C POUR NE PAS ETRE PAR LA RECHERCHE DE L'INDICE DES TABLES
  36. LECTAB=1
  37. CALL LIRMO3(MCLE,7,IRET,0,IMOTCO)
  38. ilupoy=ilupoy+1
  39. IF (IERR.NE.0) RETURN
  40. GOTO (10,20,30,40,50,60,60),IRET
  41. 10 CONTINUE
  42. IPSI=IPSI+1
  43. GOTO 1
  44. 20 CONTINUE
  45. LECTAB=0
  46. IF (IPSI.EQ.0) THEN
  47. IF(IREPET.NE.0) THEN
  48. moterr(1:40)=chauer
  49. CALL ERREUR(520)
  50. ENDIF
  51. RETURN
  52. ENDIF
  53. GOTO 1
  54. 30 CONTINUE
  55. LECTAB=0
  56. IF (IPSI.EQ.0) THEN
  57. IF(IREPET.NE.0) THEN
  58. moterr(1:40)=chauer
  59. CALL ERREUR(520)
  60. ENDIF
  61. RETURN
  62. ENDIF
  63. IF (IPSI.EQ.0) RETURN
  64. IPSI=IPSI-1
  65. GOTO 1
  66. 40 CONTINUE
  67. CALL REPETE
  68. C NE LIRE QU'UNE FOIS LA BOUCLE
  69. MBCONT=1
  70. IREPET=IREPET+1
  71. GOTO 1
  72. 50 CONTINUE
  73. CALL QUETYP( IJCH, 0, IRETOU)
  74. IF( IRETOU.EQ.0) GO TO 1
  75. IF(IREPET.EQ.0) THEN
  76. MBCOUR = MBCOUR -1
  77. moterr(1:40)=chauer
  78. CALL ERREUR(520)
  79. RETURN
  80. ENDIF
  81. CALL FIN
  82. IREPET=IREPET-1
  83. GOTO 1
  84. 60 CONTINUE
  85. MBCOUR = MBCOUR - 1
  86. moterr(1:40)=chauer
  87. CALL ERREUR(521)
  88. RETURN
  89. END
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  

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