Numérotation des lignes :

aide
C AIDE      SOURCE    JC220346  18/12/04    21:15:07     9991           C   RECHERCHE DANS LA NOTICE CASTEM2000C      SUBROUTINE AIDE(KOP,NOP)      IMPLICIT INTEGER(I-N) -INC PPARAM-INC CCOPTIO-INC CCNOYAU-INC TMLNOMS-INC SMLMOTS      SEGMENT ITRAV       CHARACTER*(LONOM) MOP(NAP),LOP(NAP)      ENDSEGMENT      SEGMENT KTRAV       CHARACTER*(LONOM) MMOP(NN),LLOP(NN)      ENDSEGMENT      CHARACTER*4 KOP(NOP)      CHARACTER*(LONOM) IHH      CHARACTER*24 ICHAI      CALL LIRCHA(ICHAI,1,ILEN)      IF(IERR.NE.0) RETURN      NAP = NOP*      write(6,*) '  nop  ' , NOPC  FAIRE EVENTUELLEMENT LE TRI ALPHABETIQUE      SEGINI ITRAV      DO 30 I=1,NOP       MOP(I)=KOP(I)  30  CONTINUE      CALL TRIDEP(MOP,LOP,NAP) **  AU TOUR DES PROCEDURES*      CALL REPLIS('PROCEDUR',MLNOMS)      SEGACT MLNOMS      NN=LINOMS(/2)*      write(6,*) '  nn   ' ,NN      SEGINI KTRAV      DO 31 I=1,NN      MMOP(I)=LINOMS(I)  31  CONTINUE      SEGSUP MLNOMS      CALL TRIDEP(MMOP,LLOP,NN) **   RECHERCHE DANS LES OPERATEURS      M=NOP+NN      SEGINI,MLNOMS      IDEJ=0      DO 2 I=1,NOP        IHH=MOP(I)        IF(IHH.EQ.'....')GO TO 2c        write(6,*) '  mot rechercher ' ,IHH        CALL INFOR2(IHH, ICHAI(1:ILEN),ITROU)c        write(6,*) ihh,ichai(1:ilen),itrou        IF (ITROU.GE.1) THEN          IDEJ=IDEJ+1          LINOMS(IDEJ)=IHH        ENDIF   2  CONTINUEcc    RECHERCHE DANS LES PROCEDURES      DO 7 I=1,NN        IHH=MMOP(I)        IF (IHH.EQ.'....') GO TO 7        CALL INFOR2(IHH,ICHAI(1:ILEN),ITROU)c        write(6,*) ihh,ichai(1:ilen),itrou        IF (ITROU.GE.1) THEN          IDEJ=IDEJ+1          LINOMS(IDEJ)=IHH        ENDIF   7  CONTINUECC   AFFICHAGE DES RESULTATS      IF (IDEJ.NE.0) THEN          WRITE (IOIMP,*) ' '          MOTERR(1:8)=ICHAI          CALL ERREUR(-286)          M=IDEJ          SEGADJ,MLNOMS          CALL AFINOM(MLNOMS,LMAX)      ENDIFCC   CREATION DU LISTMOTS EN SORTIE      JGN=LMAX      JGM=IDEJ      SEGINI,MLMOTS      DO K=1,IDEJ        MOTS(K)=LINOMS(K)      ENDDO      CALL ECROBJ('LISTMOTS',MLMOTS)      SEGSUP ITRAV,KTRAV,MLNOMS      RETURN      END     

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