anchor.diff:      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
  
positive.code:     write(fmt,'("(",I0,"A)")') len(text)
      if(level <= verbose_level) write(*,fmt) text
    end subroutine message
    
    subroutine message_number_dp(level,text,number,format,units)
      implicit none
      integer,intent(in)          :: level
  
negative.code:   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 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
  