Télécharger aide.eso

Retour à la liste

Numérotation des lignes :

  1. C AIDE SOURCE GF238795 17/11/15 19:12:10 9611
  2. C RECHERCHE DANS LA NOTICE CASTEM2000
  3. C
  4. SUBROUTINE AIDE(KOP,NOP)
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCOPTIO
  7. -INC TMLCHA8
  8. -INC SMLMOTS
  9. SEGMENT ITRAV
  10. CHARACTER*8 MOP(NAP),LOP(NAP)
  11. ENDSEGMENT
  12. SEGMENT KTRAV
  13. CHARACTER*8 MMOP(NN),LLOP(NN)
  14. ENDSEGMENT
  15. CHARACTER*4 KOP(NOP)
  16. CHARACTER*8 IHH
  17. CHARACTER*20 ICHAI
  18. CALL LIRCHA(ICHAI,1,ILEN)
  19. IF(IERR.NE.0) RETURN
  20. NAP = NOP
  21. * write(6,*) ' nop ' , NOP
  22. C FAIRE EVENTUELLEMENT LE TRI ALPHABETIQUE
  23. SEGINI ITRAV
  24. DO 30 I=1,NOP
  25. MOP(I)=KOP(I)
  26. 30 CONTINUE
  27. CALL TRIDEP(MOP,LOP,NAP)
  28.  
  29. *
  30. * AU TOUR DES PROCEDURES
  31. *
  32. CALL REPLIS('PROCEDUR',MLCHA8)
  33. SEGACT MLCHA8
  34. NN=MLCHAR(/2)
  35. * write(6,*) ' nn ' ,NN
  36. SEGINI KTRAV
  37. DO 31 I=1,NN
  38. MMOP(I)=MLCHAR(I)
  39. 31 CONTINUE
  40. CALL TRIDEP(MMOP,LLOP,NN)
  41.  
  42. *
  43. * RECHERCHE DANS LES OPERATEURS
  44. *
  45. JGM = NOP + NN
  46. JGN=8
  47. SEGINI MLMOTS
  48. IDEJ=0
  49. DO 2 I=1,NOP
  50. IHH=MOP(I)
  51. IF(IHH.EQ.'....')GO TO 2
  52. c write(6,*) ' mot rechercher ' ,IHH
  53. CALL INFOR2(IHH, ICHAI(1:ILEN),ITROU)
  54. c write(6,*) ihh,ichai(1:ilen),itrou
  55. IF(ITROU.GE.1) THEN
  56. IDEJ=IDEJ+1
  57. MOTS(IDEJ)=IHH
  58. ENDIF
  59. 2 CONTINUE
  60. c
  61. c RECHERCHE DANS LES PROCEDURES
  62. c
  63. DO 7 I=1,NN
  64. IHH=MMOP(I)
  65. IF(IHH.EQ.'....')GO TO 7
  66. CALL INFOR2(IHH,ICHAI(1:ILEN),ITROU)
  67. c write(6,*) ihh,ichai(1:ilen),itrou
  68. IF(ITROU.GE.1) THEN
  69. IDEJ=IDEJ+1
  70. MOTS(IDEJ)=IHH
  71. ENDIF
  72. 7 CONTINUE
  73. IF(IDEJ.NE.0) THEN
  74. WRITE (IOIMP,20)
  75. 20 FORMAT (1H1)
  76. INTERR(1)=IDEJ
  77. MOTERR(1:8)=' '
  78. MOTERR(1:ILEN)=ICHAI
  79. CALL ERREUR(-286)
  80. WRITE(IOIMP,21)(MOTS(I),I=1,IDEJ)
  81. ENDIF
  82. JGM=IDEJ
  83. SEGADJ MLMOTS
  84. SEGDES MLMOTS
  85. CALL ECROBJ('LISTMOTS',MLMOTS)
  86. 21 FORMAT( 7(2X,A8))
  87. SEGSUP ITRAV,KTRAV
  88. RETURN
  89. END
  90.  
  91.  
  92.  
  93.  

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