1 : C NO2000 SOURCE CHAT 06/04/05 21:15:09 5369 2 : C EDITION DE LA NOTICE CASTEM2000 SUR LE FICHIER LISTING 3 : C 4 : SUBROUTINE NO2000(KOP,NOP) 5 : IMPLICIT INTEGER(I-N) 6 : -INC CCOPTIO 7 : -INC TMLCHA8 8 : -INC SMTEXTE 9 : -INC CCASSIS 10 : SEGMENT ITRAV 11 : CHARACTER*8 MOP(NAP),LOP(NAP) 12 : ENDSEGMENT 13 : SEGMENT KTRAV 14 : CHARACTER*8 MMOP(NN),LLOP(NN) 15 : ENDSEGMENT 16 : CHARACTER*4 KOP(NOP) 17 : CHARACTER*8 MCHAP(8) 18 : CHARACTER*8 IHH 19 : DATA NCHAP /8/ 20 : DATA MCHAP/'INTK ','GIBI ','EXEM ','DEBU ','MECA ', 21 : # 'MEC1 ','MEC2 ','OBJE '/ 22 : WRITE (IOIMP,102) 23 : 102 FORMAT(22X,'NOTICE D''UTILISATION DE CASTEM2000',/, 24 : # 22X,'**********************************') 24 : CALL RAZPIL 25 : DO 1 I=1,NCHAP 26 : IERR=0 26 : CALL GINT2 27 : WRITE (IOIMP,5) 28 : 5 FORMAT(1H1,/,50X,'CEA-DEMT SYSTEME CASTEM2000') 29 : WRITE (IOIMP,10) MCHAP(I) 30 : 10 FORMAT(20X,'CHAPITRE ',A8,////) 30 : CALL ECRCHA(MCHAP(I)) 30 : CALL INFORM 31 : 1 CONTINUE 32 : NAP = NOP 33 : C FAIRE EVENTUELLEMENT LE TRI ALPHABETIQUE 34 : SEGINI ITRAV 35 : DO 30 I=1,NOP 36 : MOP(I)=KOP(I) 37 : 30 CONTINUE 37 : CALL TRIDEP(MOP,LOP,NAP) 38 : C IMPRESSION DE LA LISTE DES OPERATEURS 39 : WRITE (IOIMP,5) 40 : WRITE (IOIMP,131) 41 : 131 FORMAT(20X,'LISTE DE TOUS LES OPERATEURS '/ 42 : . 20X,'****************************'////) 43 : WRITE(IOIMP,132) (MOP(I),I=1,NOP) 44 : 132 FORMAT(6(4X,A8)/) 45 : * 46 : * AU TOUR DES PROCEDURES 47 : * 47 : CALL REPLIS('PROCEDUR',MLCHA8) 48 : SEGACT MLCHA8 49 : NN=MLCHAR(/2) 50 : SEGINI KTRAV 51 : DO 31 I=1,NN 52 : MMOP(I)=MLCHAR(I) 53 : 31 CONTINUE 53 : CALL TRIDEP(MMOP,LLOP,NN) 54 : WRITE (IOIMP,5) 55 : WRITE (IOIMP,134) 56 : 134 FORMAT(20X,'LISTE DE TOUTES LES PROCEDURES '/ 57 : . 20X,'******************************'////) 58 : WRITE(IOIMP,132) (MMOP(I),I=1,NN) 59 : * 60 : * ECRITURE DES NOTICES D'OPERATEUR 61 : * 62 : DO 2 I=1,NOP 63 : IHH=MOP(I) 64 : DO 3 J=1,NCHAP 65 : IF (IHH.EQ.MCHAP(J)) GOTO 2 66 : 3 CONTINUE 67 : IERR=0 67 : CALL GINT2 68 : WRITE (IOIMP,5) 69 : WRITE (IOIMP,10) MOP(I) 69 : CALL ECRCHA(IHH) 69 : CALL INFORM 70 : 2 CONTINUE 71 : * 72 : * ECRITURE DES NOTICES DE PROCEDURE 73 : * 74 : DO 7 I=1,NN 75 : IHH=MMOP(I) 76 : DO 8 J=1,NCHAP 77 : IF (IHH.EQ.MCHAP(J)) GOTO 7 78 : 8 CONTINUE 79 : IERR=0 79 : CALL GINT2 80 : WRITE (IOIMP,5) 81 : WRITE (IOIMP,10) MMOP(I) 82 : SEGINI MTEXTE 83 : NCART=8 84 : MTEXT(1:8)=IHH 84 : CALL ECROBJ('TEXTE',MTEXTE) 84 : CALL INFORM 85 : SEGSUP MTEXTE 86 : 7 CONTINUE 87 : WRITE (IOIMP,20) 88 : 20 FORMAT (1H1) 89 : SEGSUP ITRAV,KTRAV 90 : RETURN 91 : END 92 : 93 : 94 :
© Cast3M 2003 - All rights reserved.
Disclaimer