anchor.diff:      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
  
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
  