anchor.diff:    !!
     !! Must allocate mtab(:) BEFORE calling me.
     !! 
  -  subroutine jcf_mtf_read_whole_records(self, mtab, nrec)
  +  subroutine jcf_mtf_read_whole_records(self, mtab)
       type(maptabfile_t),intent(inout) :: self
       type(maptab_t),intent(out) :: mtab(:)
  -    integer, intent(in) :: nrec
  -
  +
  +    integer :: nrec
       integer :: n
   
       if ( .not. self%opened ) then
         write(0,*)'ERR: jcf_mtf_read_whole_records: File NOT Opened Yet!'
         call exit(1)
       end if
  +
  +    if ( self%nrec .ne. size(mtab) ) then
  +      write(0,*)'WRN:maptab size mismatch:'
  +      write(0,*)'    header:',self%nrec
  +      write(0,*)'      data:',size(mtab)
  +    end if
  +
  +    nrec = min(self%nrec,size(mtab))
   
       if ( self%binary ) then
         do n = 1, nrec
  
positive.code:       write(0,*)'ERR: jcf_mtf_write_whole_records: File NOT Opened Yet!'
        call exit(1)
      end if
  
  !!$    write(0,*)'dbg:jcf_mtf_write_whole_records:self%lun,self%binary:',self%lun,self%binary
      if ( self%binary ) then
  
negative.code:     self%lun=0
      self%opened=.false.
      self%istat=0
      self%irec=-1
  
      return
    end subroutine jcf_mtf_close
  