1 : C AIDE SOURCE CHAT 05/01/12 21:19:40 5004 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 17 : CALL LIRCHA(ICHAI,1,ILEN) 18 : IF(IERR.NE.0) RETURN 19 : NAP = NOP 20 : * write(6,*) ' nop ' , NOP 21 : C FAIRE EVENTUELLEMENT LE TRI ALPHABETIQUE 22 : SEGINI ITRAV 23 : DO 30 I=1,NOP 24 : MOP(I)=KOP(I) 25 : 30 CONTINUE 25 : CALL TRIDEP(MOP,LOP,NAP) 26 : 27 : * 28 : * AU TOUR DES PROCEDURES 29 : * 29 : CALL REPLIS('PROCEDUR',MLCHA8) 30 : SEGACT MLCHA8 31 : NN=MLCHAR(/2) 32 : * write(6,*) ' nn ' ,NN 33 : SEGINI KTRAV 34 : DO 31 I=1,NN 35 : MMOP(I)=MLCHAR(I) 36 : 31 CONTINUE 36 : CALL TRIDEP(MMOP,LLOP,NN) 37 : 38 : * 39 : * RECHERCHE DANS LES OPERATEURS 40 : * 41 : JGM = NOP + NN 42 : JGN=8 43 : SEGINI MLMOTS 44 : IDEJ=0 45 : DO 2 I=1,NOP 46 : IHH=MOP(I) 47 : IF(IHH.EQ.'....')GO TO 2 48 : * write(6,*) ' mot rechercher ' ,IHH 48 : CALL INFOR2(IHH, ICHAI(1:ILEN),ITROU) 49 : * write(6,*) ihh,ichai(1:ilen),itrou 50 : IF(ITROU.EQ.1) THEN 51 : IDEJ=IDEJ+1 52 : MOTS(IDEJ)=IHH 53 : ENDIF 54 : 2 CONTINUE 55 : * 56 : * RECHERCHE DANS LES PROCEDURES 57 : * 58 : DO 7 I=1,NN 59 : IHH=MMOP(I) 60 : IF(IHH.EQ.'....')GO TO 7 60 : CALL INFOR2(IHH,ICHAI(1:ILEN),ITROU) 61 : * write(6,*) ihh,ichai(1:ilen),itrou 62 : IF(ITROU.EQ.1) THEN 63 : IDEJ=IDEJ+1 64 : MOTS(IDEJ)=IHH 65 : ENDIF 66 : 7 CONTINUE 67 : IF(IDEJ.NE.0) THEN 68 : WRITE (IOIMP,20) 69 : 20 FORMAT (1H1) 70 : INTERR(1)=IDEJ 71 : MOTERR(1:8)=' ' 72 : MOTERR(1:ILEN)=ICHAI 72 : CALL ERREUR(-286) 73 : WRITE(IOIMP,21)(MOTS(I),I=1,IDEJ) 74 : ENDIF 75 : JGM=IDEJ 76 : SEGADJ MLMOTS 77 : SEGDES MLMOTS 77 : CALL ECROBJ('LISTMOTS',MLMOTS) 78 : 21 FORMAT( 7(2X,A8)) 79 : SEGSUP ITRAV,KTRAV 80 : RETURN 81 : END 82 : 83 :
© Cast3M 2003 - All rights reserved.
Disclaimer