**************************begin: h_fpp_nt.cmn *********************** * integer HMAX_FPPntuple_size parameter (HMAX_FPPntuple_size= 100) integer default_h_fpp_nt_ID parameter (default_h_fpp_nt_ID= 9013) * * CTPTYPE=parm * logical h_fpp_nt_exists integer h_fpp_nt_ID integer h_fpp_nt_IOchannel character*80 h_fpp_nt_name character*80 h_fpp_nt_title character*132 h_fpp_nt_directory character*256 h_fpp_nt_file character*8 h_fpp_nt_tag(HMAX_FPPntuple_size) integer HFPP_nt_max_segmentevents * * CTPTYPE=event * integer h_fpp_nt_segmentevents integer h_fpp_nt_filesegments real h_fpp_nt_contents(HMAX_FPPntuple_size) * COMMON /HMS_FPP_Ntuple/ h_fpp_nt_exists,h_fpp_nt_ID, & h_fpp_nt_IOchannel, & h_fpp_nt_name,h_fpp_nt_title, & h_fpp_nt_directory,h_fpp_nt_file, & h_fpp_nt_tag,h_fpp_nt_contents, > HFPP_nt_max_segmentevents,h_fpp_nt_segmentevents, > h_fpp_nt_filesegments * ****************************end: h_fpp_nt.cmn ***********************