C WRVECT    SOURCE    CHAT      05/01/13    04:12:58     5004           
      SUBROUTINE WRVECT (MVECTE,IOSAU,IRETOU,IFORM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C
C        ECRITURE DE 1 VECTEUR SUR LA BANDE IOSAU
C
C    ECRIT  PAR LENA
C    APPELE PAR WRPIL
C    APPELLE      :  ECDIFR ECDIFE  ECDIFMP
C=======================================================================
-INC SMVECTE
C=======================================================================
C
      DIMENSION ILENA(40)
C
C******************************************ECRITURE
C
      IRETOU=0
      SEGACT MVECTE
      NVEC    = NOCOVE(/2)
      ID      =  NOCOVE(/3)
      ILENA(1)= NVEC
      ILENA(2)=  ID
      ITOTO    = 2
      CALL ECDIFE (IOSAU,ITOTO,ILENA,IFORM)
      CALL ECDIFE (IOSAU,NVEC,IGEOV,IFORM)
      CALL ECDIFR (IOSAU,NVEC,AMPF ,IFORM)
      CALL ECDIFE (IOSAU,NVEC,NOCOUL,IFORM)
      CALL ECDIFE (IOSAU,NVEC,ICHPO,IFORM)
      L=NVEC*ID
      DO 10 J=1,ID
         DO 10 I=1,NVEC
            READ (NOCOVE(I,J),FMT='(A4)') ILENA((J-1)*NVEC+I)
  10  CONTINUE
      CALL ECDIFM (IOSAU,L,ILENA      ,IFORM)
      SEGDES MVECTE
   1  RETURN
      END