C ECDIFR    SOURCE    CHAT      12/07/27    21:15:05     7450           
      SUBROUTINE ECDIFR(NBAND,LMAX,R,IFORM)                                     
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
-INC CCOPTIO 
-INC CCFXDR
      EXTERNAL LONG                                                                   
      DIMENSION R(1)                                                            
      IF (LMAX.EQ.0) GO TO 1 
      DIMATT=DIMATT+LMAX*2
      dimato= dimatt
      IF( DIMATT.GT.DIMFIC) THEN
        DIMATT=LMAX*2 +1
        ll = long (nomfic)
        iprefi=iprefi+1
        if(iprefi.ge.10000) then
          call erreur (945)
          return
        endif
        if(iprefi.eq.1) THEN
          nomfic(ll+1:ll+2)='_1'
          ll=ll+2
        elseif(iprefi.lt.10) then 
          write(nomfic(ll:ll),fmt='(I1)')iprefi
        elseif(iprefi.lt.100) then
          if(iprefi.eq.10)ll = ll + 1
          write(nomfic(ll-1:ll),fmt='(I2)')iprefi
        elseif(iprefi.lt.1000) then
          if(iprefi.eq.100) ll = ll + 1
          write(nomfic(ll-2:ll),fmt='(I3)')iprefi
        elseif(iprefi.lt.10000) then 
          if(iprefi.eq.1000) ll = ll + 1
          write(nomfic(ll-3:ll),fmt='(I4)')iprefi
        else 
           call erreur (1003)  
        endif        
        if (iform.ne.2) close (unit=nband)
        if (iform.eq.2) ios=IXDRCLOSE( ixdrw,.TRUE. )

        if(iform.eq.1) then
          OPEN (UNIT=NBAND,STATUS='UNKNOWN',FILE=NOMFIC(1:ll),
     #    IOSTAT=IOS,ERR=2000,FORM='FORMATTED')      
        ELSEif (iform.eq.0) then
          OPEN (UNIT=NBAND,STATUS='UNKNOWN',FILE=NOMFIC(1:ll),
     #    IOSTAT=IOS,ERR=2000,FORM='UNFORMATTED')
        elseif (iform.eq.2) then
          ios= initxdr(NOMFIC(1:ll),'w',.TRUE.) 
        endif
       write(6,*) 'ecdifr : Ouverture du fichier : ',nomfic(1:ll)
       write(6,*) ' dimfic , dimatold , dimatt ',dimfic,dimato, dimatt
      endif                                      
      do 10 j=0,0
      IF(IONIVE.GT.2) THEN                                                      
        IF(IFORM.EQ.1) WRITE(NBAND,8003) (R(I+J),I=1,LMAX)
        IF(IFORM.EQ.0)WRITE(NBAND) (R(I+J),I=1,LMAX)
        if (iform.eq.2) ios=IXDRDMAT( ixdrw, lmax,r(1))
        
 8003   FORMAT(1P,3E22.14)                                                      
      ELSE                                                                      
        IF(IFORM.EQ.1)WRITE(NBAND,8002) (R(I+J),I=1,LMAX)
        IF(IFORM.EQ.0)WRITE(NBAND) (R(I+J),I=1,LMAX)
        if (iform.eq.2) ios=IXDRDMAT( ixdrw, lmax,r(1))
 8002   FORMAT(1P,6E13.6)                                                       
      ENDIF                                                                     
  10  continue
    1 RETURN  
 2000 continue
      MOTERR=NOMfic(1:ll)
      INTERR(1)=IOS
      CALL ERREUR(424)
      RETURN                                                                                 
      END