subroutine openhbook ! Calls call Hrfile ! Variables character (len=*) :: file logical :: old end subroutine openhbook
character (len=*) :: file
logical :: old