anchor.diff:  #ifdef CRLIBM
         call enable_xp()
   #endif
  -          write(iunit,'(I6,2X,G21.14,I5,4X,18(2I2,1X))')                &
  +          write(iunit,'(I6,2X,G20.13,I5,4X,18(2I2,1X))')                &
        &iout,cc(ii),ioa,(j(iii),iii=1,nvmax)
   !ETIENNE
             write(iunit,*) cc(ii)
  
positive.code: #ifdef CRLIBM
        call enable_xp()
  #endif
        read(iunit,'(I6,2X,G21.14,I5,4X,18(2I2,1X))') ii,c,io,(j(i),i=1,inva)
  #ifdef CRLIBM
        call disable_xp()
  #endif
  
negative.code:       call enable_xp()
  #endif
  !Eric
        read(iunit,'(G20.13)') c
  !Eric
        read(26) c
  #ifdef CRLIBM
  