anchor.diff:    !!
     subroutine jcf_mtf_set(self, &
          & name   , &
  -       & binary   )
  +       & binary ,&
  +       & crecv  ,&
  +       & nrecv  ,&
  +       & csend  ,&
  +       & nsend  ,&
  +       & nrec    )
  +
       type(maptabfile_t),intent(inout) :: self
  -    character(len=*),intent(in),optional :: name
  -    logical,intent(in),optional :: binary
  +    character(len=*) ,intent(in),optional :: name
  +    logical          ,intent(in),optional :: binary
  +    character(len=*) ,intent(in),optional :: crecv
  +    integer          ,intent(in),optional :: nrecv
  +    character(len=*) ,intent(in),optional :: csend
  +    integer          ,intent(in),optional :: nsend
  +    integer          ,intent(in),optional :: nrec
  +
   
       if ( present(name) ) self%name=name
       if ( present(binary) ) self%binary=binary
  +
  +    if ( present(crecv) ) self%crecv = crecv
  +    if ( present(nrecv) ) self%nrecv = nrecv
  +    if ( present(csend) ) self%csend = csend
  +    if ( present(nsend) ) self%nsend = nsend
  +    if ( present(nrec) ) self%nrec = nrec
          
  +
       return
   
     end subroutine jcf_mtf_set
  
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:   public :: maptab_t
  
    public :: jcf_mtf_init
    public :: jcf_mtf_dump
    public :: jcf_mtf_set
    public :: jcf_mtf_open
    public :: jcf_mtf_close
  