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:                                                   call enable_xp()
  #endif
  #endif
        read(iunit,'(G21.14)') c
  #ifdef CRLIBM
  #ifndef LF95
                                                    call disable_xp()
  
negative.code: #ifdef CRLIBM
        call enable_xp()
  #endif
        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
  