C WRCONF    SOURCE    CHAT      10/06/30    21:15:32     6706           
      SUBROUTINE WRCONF (IOSAU,ITLACC,IMAX1,IFORM,IDEB,IDIM,MCOORD)
C     $ , IONIVE,ICOLAC)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C
C        ECRITURE DES CONFIGURATIONS
C
C    APPELLE PAR  :  WRPIL
C
-INC SMCOORD
-INC TMCOLAC
       POINTEUR MCOOR1.MCOORD,MCOOR2.MCOORD,MCOOR3.MCOORD
       DIMENSION ILENA(4)
       SEGMENT ICPR(NBPTS*(IDIM+1))
C       IF(IONIVE.GT.9) THEN
C       ITLAC1=KCOLA(32)
C       SEGACT ITLAC1
C       IMA= ITLAC1.ITLAC(/1)
C       write(6,*) ' ima ' , ima
C       MCINI = MCOORD
       IDIM1=IDIM+1  
C       NBPTS=XCOOR(/1)/IDIM1
C       SEGINI ICPR    
C       DO 10 K=1,IMA
C       ICPR(ITLAC1.ITLAC(K))=K 
C   10  CONTINUE   
C       ENDIF
        MCINI = MCOORD
       DO 1 IEL=IDEB,IMAX1
       MCOOR1=ITLAC(IEL)
*       write(6,*) ' wrconf iel mcoor1 ' , iel, mcoor1
       IF(MCOOR1.EQ.0) THEN
         ilong=0
         ILENA(1)=ILONG
         itoto=1
         CALL ECDIFE( IOSAU,ITOTO,ILENA,IFORM)
       else
       SEGACT MCOOR1
       NBPTS=MCOOR1.XCOOR(/1)/IDIM1
C       IF(IONIVE.GT.9) THEN
C       SEGINI MCOOR2
C       DO 2 K=1,IMA
C       IA = (ICPR(K)-1)*IDIM1
C       KI=(K-1)*IDIM1
C       DO 3 KO = 1,IDIM1
C       MCOOR2.XCOOR(KI+KO)=MCOOR1.XCOOR(KO+IA)
C   3   CONTINUE
C   2   CONTINUE
C       ILONG=IMA*IDIM1
C       ELSE
       ILONG=MCOOR1.XCOOR(/1)
C       ENDIF
       ILENA(1)=ILONG
       ITOTO=1
C       MCOOR3=MCOOR1
C       IF(IONIVE.GT.9) MCOOR3=MCOOR2
       CALL ECDIFE( IOSAU,ITOTO,ILENA,IFORM)
       CALL ECDIFR( IOSAU,ILONG,MCOOR1.XCOOR(1),IFORM)
C       IF(IONIVE.GT.9) SEGSUP MCOOR2
       SEGDES MCOOR1
       endif
   1   CONTINUE
       MCOORD=MCINI
       SEGACT MCOORD*MOD 
       RETURN
       END