C WRCONF    SOURCE    PV090527  25/02/28    21:15:07     12169          
      SUBROUTINE WRCONF (IOSAUX,ITLACC,IMAX1,IFORM,IDEB,IDIMX,MCOORX)
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
-INC PPARAM  
-INC CCOPTIO 
       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
       IDIM1=IDIM+1
C       SEGINI ICPR
C       DO 10 K=1,IMA
C       ICPR(ITLAC1.ITLAC(K))=K
C   10  CONTINUE
C       ENDIF
        MCINI = MCOORD
        MCOORD = MCOORX
       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       DO 2 K=1,IMA
C       IA = (ICPR(K)-1)*IDIM1
C       KI=(K-1)*IDIM1
C       DO 3 KO = 1,IDIM1
C   3   CONTINUE
C   2   CONTINUE
C       ILONG=IMA*IDIM1
C       ELSE
       ILONG=MCOOR1.XCOOR(/1)
C       ENDIF
       ILENA(1)=ILONG
       ITOTO=1
       CALL ECDIFE( IOSAU,ITOTO,ILENA,IFORM)
       CALL ECDIFR( IOSAU,ILONG,MCOOR1.XCOOR(1),IFORM)
       if (ionive.gt.26) then
        mrota1=mcoor1.mrota
*       write(6,*) 'mrota dans wrconf ',mrota1
        if(mrota1.ne.0) then
         segact mrota1
         idimr=mrota1.xrota(/1)
         segadj mrota1
         ilena(1)=idimr
         ilena(2)=nbpts
         CALL ECDIFE( IOSAU,2,ILENA,IFORM)
         ilong=idimr*nbpts
         CALL ECDIFR( IOSAU,ILONG,Mrota1.xrota,IFORM)
        else
         ilena(1)=0
         ilena(2)=0
         CALL ECDIFE( IOSAU,2,ILENA,IFORM)
        endif
       endif
       SEGDES MCOOR1
       endif


   1   CONTINUE
       MCOORD=MCINI
       SEGACT MCOORD*MOD
       nbpts=xcoor(/1)/idim1
       RETURN
       END