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

Subroutine out_io_called (level, routine_name)

implicit none

integer level
character(*) routine_name

end subroutine out_io_called