anchor.diff:  
       subroutine LoadTxt_1D(aname, vec, n, comment)
       character(LEN=*), intent(IN) :: aname
  -    real(kind(1.d0)), allocatable, intent(out) :: vec(:)
  +    real(kind(1.d0)), allocatable :: vec(:)
       integer nn, j
       Type(TTextFile) :: F
       character(LEN=:), allocatable :: InLine
  
positive.code: 
      subroutine LoadTxt_2D(aname, mat, m, n, comment)
      character(LEN=*), intent(IN) :: aname
      real(kind(1.d0)), allocatable, intent(out) :: mat(:,:)
      integer mm, nn, j
      Type(TTextFile) :: F
      character(LEN=:), allocatable :: InLine
  
negative.code:     end subroutine
  
      subroutine TFileStream_Close(this)
      class(TFileStream) :: this
      if (this%unit/=0) close(this%unit)
      this%unit=0
      end subroutine TFileStream_Close
  
      subroutine TFileStream_Free(this)
      Type(TFileStream) :: this
  
      call this%Close()
      end subroutine TFileStream_Free
  