anchor.diff:      end if
   
       if ( ios .ne. 0 ) then
  -      write(0,*)'ERR:jcf_mtf_read_one_record:Read ERRor: '//trim(emsg)
  +      write(0,*)'ERR:jcf_mtf_read_one_record:Read Error: '//trim(emsg)
         call exit(1)
       end if
   
       coeff1 = cf(1)
       if (present(coeff2)) coeff2 = cf(2)
   
  +    self%istat=0
  +    self%irec=self%irec+1
   
       return
     end subroutine jcf_mtf_read_one_record
  
positive.code:   integer,parameter,public :: mtf_imiss =  -999
    real(dp_k),parameter,public :: mtf_fmiss = -999.d0
  
    character(len=*),parameter :: rec_form='(2I10,2E20.10)'
  contains
    !!========================================================================
    !> Initialize maptabfile_t
    subroutine jcf_mtf_init(self)
      type(maptabfile_t),intent(out) :: self
  
      self=maptabfile_t( &
           & lun  = 0, &
           & name = 'XXXX',&
           & binary=.false.,&
           & opened=.false.,&
           & istat=0 )
  
      return
    end subroutine jcf_mtf_init
  
negative.code:       write(0,*)'ERR: jcf_mtf_write_whole_records: File NOT Opened Yet!'
        call exit(1)
      end if
  
      nrec = size(mtab)
  
  !!$    write(0,*)'dbg:jcf_mtf_write_whole_records:self%lun,self%binary:',self%lun,self%binary
      if ( self%binary ) then
  