subroutine h_tree_init(abort,err) implicit none save character*11 here parameter(here='h_tree_init') include 'hms_filenames.cmn' include 'gen_routines.dec' include 'hms_data_structures.cmn' include 'gen_run_info.cmn' logical abort character*(*) err c only purpose of this routine is to substitute run number in c tree filename! CTP will take care of the rest!!!!!!!!!!! call no_nulls(h_tree_filename) if(h_tree_filename.eq.' ') return call g_sub_run_number(h_tree_filename,gen_run_number) abort=.false. err=' ' return end