!+
! Subroutine out_io_called (level, routine_name)
!
! Dummy routine for linker.
! See out_io for more details.
!-

Subroutine out_io_called (level, routine_name)

use fortran_cpp_utils

implicit none

integer level
character(*) routine_name
character(len(routine_name)) name

!

call remove_null_in_string (routine_name, name)
print *, 'Message From: ', trim(name), level

end subroutine out_io_called