anchor.diff:      procedure, nopass :: WriteTextVector
       procedure, nopass :: LoadTxt_1D
       procedure, nopass :: LoadTxt_2D
  +    procedure, nopass :: LoadTxt_int_1D
  +    procedure, nopass :: LoadTxt_int_2D
       procedure, nopass :: OpenTextFile
       procedure, nopass :: CreateTextFile
       procedure, nopass :: CharIsSlash
  -    generic  :: LoadTxt => LoadTxt_2D, LoadTxt_1D
  +    generic  :: LoadTxt => LoadTxt_2D, LoadTxt_1D, LoadTxt_int_1D, LoadTxt_int_2D
       generic  :: SaveTxt => WriteTextMatrix, WriteTextVector
       end type
   
  
positive.code: 
      subroutine LoadTxt_1D(aname, vec, n, comment)
      character(LEN=*), intent(IN) :: aname
      real(kind(1.d0)), allocatable, intent(out) :: vec(:)
      integer 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
  