INTERFACE
subroutine suhlph(kulout)
use parkind1 ,only : jpim ,jprb
integer (kind=jpim),intent(in) :: kulout
end subroutine suhlph
END INTERFACE