!+
! Subroutine tao_hook_init1 (init_file_name)
!
! Subroutine to initialize custom tao structures.
!
! Input:
!   init_file_name -- Character(*): Initialization file name.
!-

subroutine tao_hook_init1 (init_file_name)

use tao_interface, dummy => tao_hook_init1

implicit none

Character(*) init_file_name

!

end subroutine