C WRIELV    SOURCE    OF166741  24/12/18    21:15:38     12090          

*--------------------------------------------------------------------*
*                                                                    *
*     Ecriture d'un melval sur le fichier IOSAU.                     *
*                                                                    *
*     Paramètres:                                                    *
*                                                                    *
*     IOSAU   Numéro du fichier de sortie                            *
*     ITLACC  Pile contenant les nouveaux CHAMELEMs                  *
*     IFIN    Nombre de CHAMELEMs dans la pile                       *
*     IFORM   Si sauvegarde en format ou non                         *
*                                                                    *
*     Appele par : WRPIL                                             *
*                                                                    *
*     Auteur, date de creation :                                     *
*     PV  2017                                                       *
*                                                                    *
*--------------------------------------------------------------------*

      SUBROUTINE WRIELV(IOSAU,ITLACC,IDEB,IFIN,IONIV,IFORM)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC CCFXDR

-INC SMCHAML

      SEGMENT,ITLACC
         INTEGER ITLAC(0)
      ENDSEGMENT

      DIMENSION IDAN(4)

      NIDAN = 4

      DO IEL = IDEB, IFIN

         MELVAL = ITLAC(IEL)
         SEGACT,MELVAL

         IDAN(1) = VELCHE(/1)
         IDAN(2) = VELCHE(/2)
         IDAN(3) = IELCHE(/1)
         IDAN(4) = IELCHE(/2)
         CALL ECDIFE(IOSAU,NIDAN,IDAN,IFORM)

         L1 = IDAN(1) * IDAN(2)
         L2 = IDAN(3) * IDAN(4)             
         IF (L1 .GT. 0) CALL ECDIFR(IOSAU,L1,VELCHE(1,1),IFORM)                       
         IF (L2 .GT. 0) CALL ECDIFE(IOSAU,L2,IELCHE(1,1),IFORM)
         SEGDES,MELVAL

      ENDDO

      RETURN
      END