anchor.diff:    public :: delimit
     public :: message
     public :: set_verbose_level
  +  public :: now
   
     integer,parameter :: sp = selected_real_kind(p=6,r=37)
     integer,parameter :: dp = selected_real_kind(p=15,r=307)
   
     integer :: verbose_level = 0
  -  
  +
     public :: message_number
     interface message_number
        module procedure message_number_dp,message_number_int
  -  end interface
  +  end interface message_number
   
   contains
  -  
  +
     subroutine set_verbose_level(level)
       implicit none
       integer,intent(in) :: level
       verbose_level = level
     end subroutine set_verbose_level
  -  
  +
     subroutine message(level,text)
       implicit none
       integer,intent(in)          :: level
  
positive.code:     write(*,*) "WHERE   : ",trim(location)
      call delimit
    end subroutine warning
    
    subroutine warn(location, text)
      implicit none
      character(len=*),intent(in) :: location,text
      write(*,'("WARNING: ",A," [",A,"]")') text,location
    end subroutine warn
    
    subroutine error(location,text)
  
      implicit none
  
negative.code:     write(char_number,format) number
      if(level <= verbose_level) write(*,*) trim(text)//' '//trim(adjustl(char_number))//' '//trim(units)
    end subroutine message_number_dp
  
    subroutine message_number_int(level,text,number,format,units)
      implicit none
      integer,intent(in)          :: level
  