Télécharger la plaquette Cast3M


fr en

Télécharger aide.eso

Retour à la liste

Numérotation des lignes : 

aide

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

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