anchor.diff:      character(len=mtf_fnlen) :: name = 'XXXX'
       logical :: binary = .false. !< .F. if text format
       logical :: opened = .false. !< .T. after opened
  +    character(len=mtf_clen) :: crecv=''
  +    integer :: nrecv
  +    character(len=mtf_clen) :: csend=''
  +    integer :: nsend
  +    integer :: nrec = -1
  +    integer :: irec = -1
     end type maptabfile_t
   
   
  
positive.code:   !!========================================================================
    !> Write whole record as an array of maptab_t,
    !!
    subroutine jcf_mtf_write_whole_records(self, mtab, nrec)
      type(maptabfile_t),intent(inout) :: self
      type(maptab_t),intent(out) :: mtab(:)
      integer, intent(in) :: nrec
  
      integer :: n
  
  
negative.code:     self%binary=lbin
      self%opened=.true.
      self%istat=0
      self%irec=-1
  
  !!$    call jcf_mtf_dump(self,unit=0,head='dbg:jcf_mtf_open:Opened:')
      return
  
    end subroutine jcf_mtf_open
  