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