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