C ECNUAG    SOURCE    CHAT      06/03/16    21:17:08     5336           
      SUBROUTINE ECNUAG(INUA)                                            
*----------------------------------------------------------------------  
*             IMPRESSION D'UN OBJET DE TYPE  NUAGE                       
*----------------------------------------------------------------------  
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                             
-INC SMNUAGE                                                             
-INC CCNOYAU                                                             
      CHARACTER*(8) ITYPE,INOM,IWR(5)
      CHARACTER*4 FAUX,VRAI 
      CHARACTER*8 IWRI                                            
      REAL*8 XRR(5)
      INTEGER INRE(5)    
      LOGICAL BRET                                                       
      MNUAGE=INUA                                                        
      SEGACT MNUAGE                                                       
      INTERR(1) = MNUAGE
      NVAR=NUAPOI(/1)
      ITYPE=NUATYP(1)
      IF( ITYPE.EQ.'FLOTTANT') THEN
        NUAVFL=NUAPOI(1)
        SEGACT NUAVFL
        NBCOUP=NUAFLO(/1)
      ELSEIF(ITYPE.EQ.'LOGIQUE ') THEN
        NUAVLO=NUAPOI(1)
        SEGACT NUAVLO
        NBCOUP=NUALOG(/1)
      ELSEIF(ITYPE.EQ.'MOT     ') THEN
        NUAVMO=NUAPOI(1)
        SEGACT NUAVMO
        NBCOUP=NUAMOT(/2)
      ELSE
        NUAVIN=NUAPOI(1)
        SEGACT NUAVIN
        NBCOUP=NUAINT(/1)
      ENDIF                             
      INTERR(2)=NVAR
      INTERR(3)=NBCOUP
      CALL ERREUR(-287)                                                  
  513 FORMAT(5(2X,I8))
  514 FORMAT(5(1X,1PE9.2))
  515 FORMAT(5(2X,A8))
      DO 1 IV=1,NVAR
      MOTERR(1:8)=NUANOM(IV)
      MOTERR(9:16)=NUATYP(IV)
      INTERR(1)= IV
      CALL ERREUR(-288)
      ITYPE=NUATYP(IV)
      IF( ITYPE.EQ.'FLOTTANT') THEN
        NUAVFL=NUAPOI(IV)
        SEGACT NUAVFL
        NBCOUP=NUAFLO(/1)
        NN = 0
        DO 12  K = 1,NBCOUP,5
        NI = MIN ( 5 , NBCOUP - NN)
        DO 13 NW = 1, NI
        XRR(NW)=NUAFLO(K-1+NW)
   13   CONTINUE
        WRITE(IOIMP,514) (XRR(IK),IK=1,NI)
        NN = NN + 5
   12   CONTINUE
        SEGDES NUAVFL 
      ELSEIF(ITYPE.EQ.'LOGIQUE ') THEN
        NUAVLO=NUAPOI(IV)
        SEGACT NUAVLO
        NBCOUP=NUALOG(/1)
        NN = 0
        DO 121  K = 1,NBCOUP,5
        NI = MIN ( 5 , NBCOUP - NN)
        DO 131 NW = 1, NI
        IWR(NW) = 'FAUX'
        IF( NUALOG(K-1+NW))  IWR(NW) ='VRAI'
  131   CONTINUE
        WRITE(IOIMP,515) (IWR(IK),IK=1,NI)
        NN = NN + 5
  121   CONTINUE
        SEGDES NUAVLO 
      ELSEIF(ITYPE.EQ.'MOT     ') THEN
        NUAVMO=NUAPOI(IV)
        SEGACT NUAVMO
        NBCOUP=NUAMOT(/2)
        NN = 0
        DO 122  K = 1,NBCOUP,5
        NI = MIN ( 5 , NBCOUP - NN)
        DO 132 NW = 1, NI
        IWR(NW) =  NUAMOT(K-1+NW)
  132   CONTINUE
        WRITE(IOIMP,515) (IWR(IK),IK=1,NI)
        NN = NN + 5
  122   CONTINUE
        SEGDES NUAVMO 
      ELSE
        NUAVIN=NUAPOI(IV)
        SEGACT NUAVIN
        NBCOUP=NUAINT(/1)
        NN = 0
        DO 123  K = 1,NBCOUP,5
        NI = MIN ( 5 , NBCOUP - NN)
        DO 133 NW = 1, NI
        INRE(NW) =  NUAINT(K-1+NW)
  133   CONTINUE
        WRITE(IOIMP,513) (INRE(IK),IK=1,NI)
        NN = NN + 5
  123   CONTINUE 
        SEGDES NUAVIN
      ENDIF                         
   1  CONTINUE                                                           
      SEGDES MNUAGE                                                      
      RETURN                                                             
      END