C NO2000    SOURCE    JC220346  18/12/04    21:15:48     9991           
C    EDITION DE LA NOTICE CASTEM2000 SUR LE FICHIER LISTING
C
      SUBROUTINE NO2000(KOP,NOP)
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
-INC TMLNOMS
-INC SMTEXTE
-INC CCASSIS
      SEGMENT ITRAV
       CHARACTER*8 MOP(NAP),LOP(NAP)
      ENDSEGMENT
      SEGMENT KTRAV
       CHARACTER*8 MMOP(NN),LLOP(NN)
      ENDSEGMENT
      CHARACTER*4 KOP(NOP)
      CHARACTER*8 MCHAP(8)
      CHARACTER*8 IHH
      DATA NCHAP /8/
      DATA MCHAP/'INTK   ','GIBI   ','EXEM    ','DEBU   ','MECA   ',
     #           'MEC1   ','MEC2    ','OBJE    '/
      WRITE (IOIMP,102)
 102  FORMAT(22X,'NOTICE D''UTILISATION DE CASTEM2000',/,
     #       22X,'**********************************')
      CALL RAZPIL
      DO 1 I=1,NCHAP
      IERR=0
      CALL GINT2
      WRITE (IOIMP,5)
   5  FORMAT(1H1,/,50X,'CEA-DEMT   SYSTEME CASTEM2000')
      WRITE (IOIMP,10) MCHAP(I)
  10  FORMAT(20X,'CHAPITRE ',A8,////)
      CALL ECRCHA(MCHAP(I))
      CALL INFORM
   1  CONTINUE
      NAP = NOP
C  FAIRE EVENTUELLEMENT LE TRI ALPHABETIQUE
      SEGINI ITRAV
      DO 30 I=1,NOP
       MOP(I)=KOP(I)
  30  CONTINUE
      CALL TRIDEP(MOP,LOP,NAP)
C   IMPRESSION DE LA LISTE DES OPERATEURS
      WRITE (IOIMP,5)
      WRITE (IOIMP,131)
 131  FORMAT(20X,'LISTE DE TOUS LES OPERATEURS  '/
     .       20X,'****************************'////)
      WRITE(IOIMP,132) (MOP(I),I=1,NOP)
 132  FORMAT(6(4X,A8)/)
*
*  AU TOUR DES PROCEDURES
*
      CALL REPLIS('PROCEDUR',MLNOMS)
      SEGACT MLNOMS
      NN=LINOMS(/2)
      SEGINI KTRAV
      DO 31 I=1,NN
      MMOP(I)=LINOMS(I)
  31  CONTINUE
      CALL TRIDEP(MMOP,LLOP,NN)
      WRITE (IOIMP,5)
      WRITE (IOIMP,134)
 134  FORMAT(20X,'LISTE DE TOUTES LES PROCEDURES  '/
     .       20X,'******************************'////)
      WRITE(IOIMP,132) (MMOP(I),I=1,NN)
*
*   ECRITURE DES NOTICES D'OPERATEUR
*
      DO 2 I=1,NOP
        IHH=MOP(I)
        DO 3 J=1,NCHAP
         IF (IHH.EQ.MCHAP(J)) GOTO 2
  3     CONTINUE
      IERR=0
      CALL GINT2
      WRITE (IOIMP,5)
      WRITE (IOIMP,10) MOP(I)
      CALL ECRCHA(IHH)
      CALL INFORM
   2  CONTINUE
*
*   ECRITURE DES NOTICES DE PROCEDURE
*
      DO 7 I=1,NN
        IHH=MMOP(I)
        DO 8 J=1,NCHAP
         IF (IHH.EQ.MCHAP(J)) GOTO 7
  8     CONTINUE
      IERR=0
      CALL GINT2
      WRITE (IOIMP,5)
      WRITE (IOIMP,10) MMOP(I)
      SEGINI MTEXTE
      NCART=8
      MTEXT(1:8)=IHH
      CALL ECROBJ('TEXTE',MTEXTE)
      CALL INFORM
      SEGSUP MTEXTE
   7  CONTINUE
      WRITE (IOIMP,20)
  20  FORMAT (1H1)
      SEGSUP ITRAV,KTRAV
      RETURN
      END