sep_get_number_keys - get number of keys
ierr= sep_get_number_keys(tag_history,n_keys)
tag of History File
number of Header Keys described in Header Format File
-1 = if fails for other reasons
0 = if successful
+1 = if tag_history is an Sep77 History File
auxpar from Header Format File for parameter nh1
sep3d