Sources Esope | Cast3M

eclre1
C ECLRE1    SOURCE    SP204843  25/03/17    21:15:03     12205          
      SUBROUTINE ECLRE1(IRET,JENTET)
C----------------------------------------------------------------------C
C ECRITURE D'UN OBJET CHARGEMENT
C----------------------------------------------------------------------C
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
      CHARACTER*24       TITI
 
-INC PPARAM
-INC CCOPTIO
-INC SMLREEL
 
      MLREEL=IRET
      SEGACT, MLREEL
      N1=PROG(/1)
      INTERR(1)=N1
      INTERR(2)=MLREEL
      CALL ERREUR(-9)
      if(jentet.eq.1) n1 = min ( n1, 10)
c       IF(N1.NE.0) WRITE(IOIMP,82)(PROG(J),J=1,N1)
c  82   FORMAT(10(1X,1PG12.5))
cbp : on lit eventuellement nombre de colonne avant retour a la ligne :
      NMAX=10
      CALL LIRENT(IMAX,0,IRETOU)
      if(IRETOU.NE.0) NMAX=MIN(IMAX,999)
C     write(6,*) 'NMAX=',NMAX
      WRITE(TITI,FMT='("(",I3,"(1X,1PG12.5))")') NMAX
C     write(6,*) 'titi=',titi
      IF(N1.NE.0) WRITE(IOIMP,TITI)(PROG(J),J=1,N1)
 
      RETURN
      END