Sources Esope | Cast3M

prclst
C PRCLST    SOURCE    CHAT      05/01/13    02:22:10     5004
      SUBROUTINE PRCLST(IRET)
C
C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C  C ECRIT L'OBJET CL1 (DDL BLOQUE) STRUCTURE C
C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC SMCLSTR
      MCLSTR=IRET
      SEGACT MCLSTR
      N=ISOSTR(/1)
      INTERR(1)=MCLSTR
      INTERR(2)=N
      CALL ERREUR(-128)
      DO 10 NN=1,N
      INTERR(1)=IRIGCL(NN)
      INTERR(2)=ISOSTR(NN)
      CALL ERREUR(-129)
   10 CONTINUE
      SEGDES MCLSTR
      WRITE(IOIMP,300)
  300 FORMAT(/)
      RETURN
      END