!----------------------------------------------------------------------------
!
! message_nolog -- Display subroutine messages, plain non-logfile version.
!
! This is a stub version of message.f90.
!
! 1.00	2001-sep-21	Included in /home/dallured/rainsoft/bcorrect.f v1.09.
! 2.00	2005-aug-02	Add to library.  Convert to f90.
!			Remove accidental leading space in output line.
!
!----------------------------------------------------------------------------

subroutine message (string)

   implicit none
   character, intent (in ) :: string*(*)

   write (*, '(a)') trim (string)
   return

end subroutine message