! @ kepler_hfs   hfs-structure-file
!   Called by KEPLER SHOW /HFS
!
on error return
define real hfs_tau
if exist(hfs) then
  let hfs_tau hfs%tau
  delet /var hfs
else
  let hfs_tau 0.1
endif
if pro%narg.eq.2 let hfs_tau &2
defin stru hfs /global
defin inte hfs%nhyp /global
defin real hfs%tau /global
accept hfs%nhyp /col &1
define real hfs%velocity[hfs%nhyp] hfs%ratio[hfs%nhyp] /global
accept hfs%velocity hfs%ratio /col &1 /line 2
let hfs%tau hfs_tau
let mapping_error NO  ! Set success information

