I will be going to go around to y'all enlisting volunteers, one per
package, to produce the following:
a) a one sentence description of each tcl variable.
b) a sensible default value for the variable.
Let me propose that that this description be kept in an ascii file called
README_TCL in each package directory.
In a couple of weeks, I am proposing that any variable that does not have
(a) and (b) taken care of be unlinked from tcl. (In fact in some cases,
perhaps the entire packages should be unlinked from the library). I
volunteer for this job.
Comments? Questions?
Mark M. Ito, Thomas Jefferson National Accelerator Facility
12000 Jefferson Ave., Mail Stop 12H, Newport News, VA 23606
Email: marki@jlab.org, Office: (757)269-5295, Pager: (757)680-7175
WWW: http://claspc2.cebaf.gov/~marki/
-----------------------------------------------
./Ls/lstcl_cc_initialize.F
variable = LsJcl_Cc_cutoff_distance
LsJcl_Cc_cutoff_distance= 4.0*meter
call tcl_linkvar('LsJcl_Cc_cutoff_distance',
& LsJcl_Cc_cutoff_distance, typeFF)
call RECMES(CRNAME,'I','LsJcl_Cc_cutoff_distance')
variable = LsJcl_Cc_position_resolution
LsJcl_Cc_position_resolution= 2.5*meter
call tcl_linkvar('LsJcl_Cc_position_resolution',
& LsJcl_Cc_position_resolution, typeFF)
variable = LsCls_Cc_Nphotoelectrons
LsCls_Cc_Nphotoelectrons= 1.0
call tcl_linkvar('LsCls_Cc_Nphotoelectrons',
& LsCls_Cc_Nphotoelectrons, typeFF)
variable = LsCls_Cc_time_resolution
LsCls_Cc_time_resolution= 10*nSec
call tcl_linkvar('LsCls_Cc_time_resolution',
& LsCls_Cc_time_resolution, typeFF)
variable = LsCls_Cc_position_resolution
LsCls_Cc_position_resolution= 2*meter
call tcl_linkvar('LsCls_Cc_position_resolution',
& LsCls_Cc_position_resolution, typeFF)
./Ls/lstcl_ec_initialize.F
variable = LsJcl_Ec_cutoff_distance
LsJcl_Ec_cutoff_distance= 4.0*meter
call tcl_linkvar('LsJcl_Ec_cutoff_distance',
& LsJcl_Ec_cutoff_distance, typeFF)
write(CRMESS,'(a,f)') 'LsJcl_Ec_cutoff_distance = ',
& LsJcl_Ec_cutoff_distance
variable = LsJcl_Ec_position_resolution
LsJcl_Ec_position_resolution= 6.0*centimeter
call tcl_linkvar('LsJcl_Ec_position_resolution',
& LsJcl_Ec_position_resolution, typeFF)
write(CRMESS,'(a,f)') 'LsJcl_Ec_position_resolution = ',
& LsJcl_Ec_position_resolution
variable = LsJcl_Ec_width_weight
LsJcl_Ec_width_weight= s qrt(8.*TT)
call tcl_linkvar('LsJcl_Ec_width_weight',
& LsJcl_Ec_width_weight, typeFF)
write(CRMESS,'(a,f)') 'LsJcl_Ec_width_weight = ',
& LsJcl_Ec_width_weight
variable = LsJcl_Ec_width_power
LsJcl_Ec_width_power= 1/3.
call tcl_linkvar('LsJcl_Ec_width_power',
& LsJcl_Ec_width_power, typeFF)
write(CRMESS,'(a,f)') 'LsJcl_Ec_width_power = ',
& LsJcl_Ec_width_power
variable = LsCls_Ec_energy_resolution
LsCls_Ec_energy_resolution= 0.1 !fraction/sqrt(E)
call tcl_linkvar('LsCls_Ec_energy_resolution',
& LsCls_Ec_energy_resolution,typeFF)
write(CRMESS,'(a,f)') 'LsCls_Ec_energy_resolution = ',
& LsCls_Ec_energy_resolution
variable = LsCls_Ec_time_resolution
LsCls_Ec_time_resolution= 0.5*nSec
call tcl_linkvar('LsCls_Ec_time_resolution',
& LsCls_Ec_time_resolution, typeFF)
write(CRMESS,'(a,f)') 'LsCls_Ec_time_resolution = ',
& LsCls_Ec_time_resolution
variable = LsCls_Ec_position_resolution
LsCls_Ec_position_resolution= 3.0*centimeter
call tcl_linkvar('LsCls_Ec_position_resolution',
& LsCls_Ec_position_resolution, typeFF)
write(CRMESS,'(a,f)') 'LsCls_Ec_position_resolution = ',
& LsCls_Ec_position_resolution
./Ls/lstcl_sc_initialize.F
variable = LsJcl_Sc_cutoff_distance
LsJcl_Sc_cutoff_distance= 2.0*meter
call tcl_linkvar('LsJcl_Sc_cutoff_distance',
& LsJcl_Sc_cutoff_distance, typeFF)
call RECMES(CRNAME,'I','LsJcl_Sc_cutoff_distance')
variable = LsJcl_Sc_position_resolution
LsJcl_Sc_position_resolution= 10.*centimeter
call tcl_linkvar('LsJcl_Sc_position_resolution',
& LsJcl_Sc_position_resolution, typeFF)
call RECMES(CRNAME,'I','LsJcl_Sc_position_resolution')
variable = LsCls_Sc_EnergyNormalIncidence
LsCls_Sc_EnergyNormalIncidence= 10*MeV
call tcl_linkvar('LsCls_Sc_EnergyNormalIncidence',
& LsCls_Sc_EnergyNormalIncidence, typeFF)
call RECMES(CRNAME,'I','LsCls_Sc_EnergyNormalIncidence')
variable = LsCls_Sc_energy_resolution
LsCls_Sc_energy_resolution= 2*MeV
call tcl_linkvar('LsCls_Sc_energy_resolution',
& LsCls_Sc_energy_resolution, typeFF)
call RECMES(CRNAME,'I','LsCls_Sc_energy_resolution')
./ana/histtcl_init.F
variable = ltrk_h_do
LTRK_H_DO = .FALSE.
call tcl_linkvar('ltrk_h_do',ltrk_h_do,itcl_int)
variable = legn_h_do
LEGN_H_DO = .FALSE.
call tcl_linkvar('legn_h_do',legn_h_do,itcl_int)
variable = lcc_h_do
LCC_H_DO = .FALSE.
call tcl_linkvar('lcc_h_do',lcc_h_do,itcl_int)
variable = ltof_h_do
LTOF_H_DO = .FALSE.
call tcl_linkvar('ltof_h_do',ltof_h_do,itcl_int)
variable = lst_h_do
LST_H_DO = .FALSE.
call tcl_linkvar('lst_h_do',lst_h_do,itcl_int)
variable = lusr0_h_do
LUSR0_H_DO = .FALSE.
call tcl_linkvar('lusr0_h_do',lusr0_h_do,itcl_int)
variable = lusr1_h_do
LUSR1_H_DO = .FALSE.
call tcl_linkvar('lusr1_h_do',lusr1_h_do,itcl_int)
variable = lusr2_h_do
LUSR2_H_DO = .FALSE.
call tcl_linkvar('lusr2_h_do',lusr2_h_do,itcl_int)
variable = ltime_h_do
LTIME_H_DO = .FALSE.
call tcl_linkvar('ltime_h_do',ltime_h_do,itcl_int)
variable = ltagger_h_do
LTAGGER_H_DO = .FALSE.
call tcl_linkvar('ltagger_h_do',ltagger_h_do,itcl_int)
variable = lec1_h_do
LEC1_H_DO = .FALSE.
call tcl_linkvar('lec1_h_do',lec1_h_do,itcl_int)
variable = lseb_h_do
LSEB_H_DO = .FALSE.
call tcl_linkvar('lseb_h_do',lseb_h_do,itcl_int)
variable = lfec_hist
LFEC_HIST = .FALSE.
call tcl_linkvar('lfec_hist',lfec_hist,itcl_int)
variable = lseb_hist
LSEB_HIST = .FALSE.
call tcl_linkvar('lseb_hist',lseb_hist,itcl_int)
variable = lfec_echb
LFEC_ECHB = .FALSE.
call tcl_linkvar('lfec_echb',lfec_echb,itcl_int)
variable = lseb_ntup
LSEB_NTUP = .FALSE.
call tcl_linkvar('lseb_ntup',lseb_ntup,itcl_int)
variable = lall_nt_do
LALL_NT_DO = .FALSE.
call tcl_linkvar('lall_nt_do',lall_nt_do,itcl_int)
./cc/eid_tcl_init.F
variable = CCecthr
call tcl_linkvar('CCecthr',CCecthr,itype)
variable = CCscthr
call tcl_linkvar('CCscthr',CCscthr,itype)
variable = CCscecy
call tcl_linkvar('CCscecy',CCscecy,itype)
variable = CCicoor
call tcl_linkvar('CCicoor',CCicoor,itype)
variable = CCscpn
call tcl_linkvar('CCscpn' ,CCscpn ,itype)
./ccm/ccm_tcl_init.F
variable = CCM_Dbg_hist
CALL TCL_LINKVAR('CCM_Dbg_hist',CCM_Dbg_hist,itcl_int)
variable = CCM_Sim_bank
CALL TCL_LINKVAR('CCM_Sim_bank',CCM_Sim_bank,itcl_int)
variable = CCM_BOSb_out
CALL TCL_LINKVAR('CCM_BOSb_out',CCM_BOSb_out,itcl_int)
./dc/dc_tcl_init.F
variable = dc_geom_map
call tcl_linkvar('dc_geom_map',dc_geom_map,itcl_int)
variable = dc_efficiency
call tcl_linkvar('dc_efficiency',dc_efficiency,itcl_double)
variable = dc0_cut_level
call tcl_linkvar('dc0_cut_level',dc0_cut_level,itcl_int)
variable = dc_xvst_choice
call tcl_linkvar('dc_xvst_choice',dc_xvst_choice,itcl_int)
variable = dc_xvst_default_slope
call tcl_linkvar('dc_xvst_default_slope',dc_xvst_default_slope,itcl_double)
variable = dc_xvst_n_power
call tcl_linkvar('dc_xvst_n_power',dc_xvst_n_power,itcl_double)
variable = dc_xvst_m_power
call tcl_linkvar('dc_xvst_m_power',dc_xvst_m_power,itcl_double)
./dcm/dcm_tcl_init.F
variable = DCM_Dbg_hist
CALL TCL_LINKVAR('DCM_Dbg_hist',DCM_Dbg_hist,itcl_int)
variable = DCM_Dbg_dump
CALL TCL_LINKVAR('DCM_Dbg_dump',DCM_Dbg_dump,itcl_int)
variable = DCM_Vrt_read
CALL TCL_LINKVAR('DCM_Vrt_read',DCM_Vrt_read,itcl_int)
variable = DCM_Reco_his
CALL TCL_LINKVAR('DCM_Reco_his',DCM_Reco_his,itcl_int)
variable = DCM_Reco_ntp
CALL TCL_LINKVAR('DCM_Reco_ntp',DCM_Reco_ntp,itcl_int)
variable = DCM_XvsT_chs
CALL TCL_LINKVAR('DCM_XvsT_chs',DCM_XvsT_chs,itcl_int)
variable = DCM_Katz_pos
CALL TCL_LINKVAR('DCM_Katz_pos',DCM_Katz_pos,itcl_double)
variable = DCM_XvsT_slp
CALL TCL_LINKVAR('DCM_XvsT_slp',DCM_XVST_SLP,itcl_double)
variable = DCM_XvsT_pw1
CALL TCL_LINKVAR('DCM_XvsT_pw1',DCM_XvsT_pw1,itcl_double)
variable = DCM_XvsT_pw2
CALL TCL_LINKVAR('DCM_XvsT_pw2',DCM_XvsT_pw2,itcl_double)
./draw/draw_tcl_init.F
variable = RED_let_draw
CALL TCL_LINKVAR('RED_let_draw',RED_let_draw,itcl_int)
variable = RED_disp_len
CALL TCL_LINKVAR('RED_disp_len',RED_disp_len,itcl_int)
variable = RED_disp_adr
CALL TCL_LinkChar('RED_disp_adr',RED_disp_adr,itcl_string,lstring)
variable = RED_drw_tops
CALL TCL_LINKVAR('RED_drw_tops',RED_drw_tops,itcl_int)
variable = RED_drw_bots
CALL TCL_LINKVAR('RED_drw_bots',RED_drw_bots,itcl_int)
./ec/ectcl_init.F
variable = EcFitEdge_strip_threshold
call tcl_linkvar('EcFitEdge_strip_threshold',
1 EcFitEdge_strip_threshold,i_double)
variable = EcFitEdge_peak_threshold
call tcl_linkvar('EcFitEdge_peak_threshold',
1 EcFitEdge_peak_threshold,i_double)
variable = EcFitEdge_hit_threshold
call tcl_linkvar('EcFitEdge_hit_threshold',
1 EcFitEdge_hit_threshold,i_double)
variable = def_atten
call tcl_linkvar('def_atten',
1 def_atten,i_integer)
variable = def_adc
call tcl_linkvar('def_adc',
1 def_ADC,i_integer)
variable = def_tdc
call tcl_linkvar('def_tdc',
1 def_TDC,i_integer)
variable = def_geom
call tcl_linkvar('def_geom',
1 def_geom,i_integer)
variable = ec_ln_weights
call tcl_linkvar('ec_ln_weights',
1 ec_ln_weights,i_integer)
variable = whole_surf
call tcl_linkvar('whole_surf',
1 whole_surf,i_double)
variable = inner_surf
call tcl_linkvar('inner_surf',
1 inner_surf,i_double)
variable = outer_surf
call tcl_linkvar('outer_surf',
1 outer_surf,i_double)
variable = anal_opt
call tcl_linkvar('anal_opt',
1 anal_opt,i_integer)
variable = touch_id
call tcl_linkvar('touch_id',
1 touch_id,i_integer)
variable = ec_match
call tcl_linkvar('ec_match',
1 ec_match,i_double)
./ecm/ecm_tcl_init.F
variable = ECM_INpt_his
CALL TCL_LINKVAR('ECM_INpt_his',ECM_INpt_his,ITCL_INT)
variable = ECM_strp_thr
ECM_strp_thr = 0.001
CALL TCL_LINKVAR('ECM_strp_thr',ECM_strp_thr,ITCL_DOUBLE)
variable = ECM_peak_thr
ECM_peak_thr = 0.003
CALL TCL_LINKVAR('ECM_peak_thr',ECM_peak_thr,ITCL_DOUBLE)
variable = ECM_hits_thr
ECM_hits_thr = 0.010
CALL TCL_LINKVAR('ECM_hits_thr',ECM_hits_thr,ITCL_DOUBLE)
variable = ECM_def_attn
CALL TCL_LINKVAR('ECM_def_attn',ECM_def_attn,ITCL_INT)
variable = ECM_def_adcs
CALL TCL_LINKVAR('ECM_def_adcs',ECM_def_adcs,ITCL_INT)
variable = ECM_def_tdcs
CALL TCL_LINKVAR('ECM_def_tdcs',ECM_def_tdcs,ITCL_INT)
variable = ECM_def_geom
CALL TCL_LINKVAR('ECM_def_geom',ECM_def_geom,ITCL_INT)
variable = ECM_whl_surf
ECM_whl_surf = 1.
CALL TCL_LINKVAR('ECM_whl_surf',ECM_whl_surf,ITCL_DOUBLE)
variable = ECM_inn_surf
ECM_inn_surf = 1.
CALL TCL_LINKVAR('ECM_inn_surf',ECM_inn_surf,ITCL_DOUBLE)
variable = ECM_out_surf
ECM_out_surf = 16.
CALL TCL_LINKVAR('ECM_out_surf',ECM_out_surf,ITCL_DOUBLE)
variable = ECM_anal_opt
ECM_anal_opt = 1
CALL TCL_LINKVAR('ECM_anal_opt',ECM_anal_opt,ITCL_INT)
variable = ECM_touch_id
ECM_touch_id = 0
CALL TCL_LINKVAR('ECM_touch_id',ECM_touch_id,ITCL_INT)
variable = ECM_mtch_hit
ECM_mtch_hit = 3.
CALL TCL_LINKVAR('ECM_mtch_hit',ECM_mtch_hit,ITCL_DOUBLE)
./lac/ec1tcl_init.F
variable = ec1_reco_type
ec1_reco_type=1
call tcl_linkvar('ec1_reco_type',
1 ec1_reco_type,intcl_int)
variable = ec1Maxclust
ec1maxclust=8
call tcl_linkvar('ec1Maxclust',
1 ec1Maxclust,intcl_int)
variable = ec1_calib
ec1_calib=2
ec1_caliba1=0.0685 !to MeV
ec1_calibt1=5.0 !to ns
ec1_caliba2=0.0
ec1_calibt2=0.0
call tcl_linkvar('ec1_calib',
1 ec1_calib,intcl_int)
variable = ec1_threshold
ec1_threshold=5.0 !MeV
call tcl_linkvar('ec1_threshold',
1 ec1_threshold,intcl_double)
variable = ec1_timeresol
ec1_timeresol=20.0
call tcl_linkvar('ec1_timeresol',
1 ec1_timeresol,intcl_double)
variable = ec1stenmin_in
ec1stenmin_in=20.0 !MeV
call tcl_linkvar('ec1stenmin_in',
1 ec1stenmin_in,intcl_double)
variable = ec1stenmin_out
ec1stenmin_out=10.0 !MeV
call tcl_linkvar('ec1stenmin_out',
1 ec1stenmin_out,intcl_double)
./lcm/lcm_tcl_init.F
variable = LCM_INpt_his
CALL TCL_LINKVAR('LCM_INpt_his',LCM_INpt_his,itcl_int)
variable = LCM_rec_type
LCM_rec_type=1
CALL TCL_LINKVAR('LCM_rec_type',LCM_rec_type,itcl_int)
variable = LCM_maxclust
LCM_maxclust=8
CALL TCL_LINKVAR('LCM_maxclust',LCM_maxclust,itcl_int)
variable = LCM_calibdat
LCM_calibdat=0
CALL TCL_LINKVAR('LCM_calibdat',LCM_calibdat,itcl_int)
variable = LCM_caliba_1
c LCM_caliba_1=0.11 !to MeV
CALL TCL_LINKVAR('LCM_caliba_1',LCM_caliba_1,itcl_double)
variable = LCM_calibt_1
LCM_calibt_1=5.0 !to ns
CALL TCL_LINKVAR('LCM_calibt_1',LCM_calibt_1,itcl_double)
variable = LCM_caliba_2
LCM_caliba_2=0.0
CALL TCL_LINKVAR('LCM_caliba_2',LCM_caliba_2,itcl_double)
variable = LCM_calibt_2
LCM_calibt_2=0.0
CALL TCL_LINKVAR('LCM_calibt_2',LCM_calibt_2,itcl_double)
variable = LCMthreshold
LCMthreshold=5.0 !MeV
CALL TCL_LINKVAR('LCMthreshold',LCMthreshold,itcl_double)
variable = LCM_time_res
LCM_time_res=20.0
CALL TCL_LINKVAR('LCM_time_res',LCM_time_res,itcl_double)
variable = LCM_stmip_in
LCM_stmip_in=20.0 !MeV
CALL TCL_LINKVAR('LCM_stmip_in',LCM_stmip_in,itcl_double)
variable = LCM_smip_out
LCM_smip_out=10.0 !MeV
CALL TCL_LINKVAR('LCM_smip_out',LCM_smip_out,itcl_double)
./mfm/mfm_tcl_init.F
variable = MFM_MAG_type
CALL TCL_LINKVAR('MFM_MAG_type',MFM_MAG_type,itcl_int)
variable = MFM_comp_fld
CALL TCL_LINKVAR('MFM_comp_fld',MFM_comp_fld,itcl_int)
variable = MFM_BigTorus
CALL TCL_LINKVAR('MFM_BigTorus',MFM_BigTorus,itcl_double)
variable = MFM_MinTorus
CALL TCL_LINKVAR('MFM_MinTorus',MFM_MinTorus,itcl_double)
variable = MFM_PolTargt
CALL TCL_LINKVAR('MFM_PolTargt',MFM_PolTargt,itcl_double)
./ntuplemakers/ntupletcl_init.F
variable = lntupmake_do
lntupmake_do=.true.
call tcl_linkvar('lntupmake_do',lntupmake_do,itcl_int)
./recsis/rntcl_init.F
variable = prescale_factor
PRESCALE_FACTOR=1
call tcl_linkvar('prescale_factor',prescale_factor,itcl_int)
variable = nevt_to_process
NEVT_TO_PROCESS=-1
call tcl_linkvar('nevt_to_process',nevt_to_process,itcl_int)
variable = nevt_to_skip
NEVT_TO_SKIP=-1
call tcl_linkvar('nevt_to_skip',nevt_to_skip,itcl_int)
variable = nrun_to_process
NRUN_TO_PROCESS=-1
call tcl_linkvar('nrun_to_process',nrun_to_process,itcl_int)
variable = nrun_to_skip
NRUN_TO_SKIP=-1
call tcl_linkvar('nrun_to_skip',nrun_to_skip,itcl_int)
variable = prescale
PRESCALE_FACTOR=1
PRESCALE_COUNTER=0
call tcl_linkvar('prescale_factor',prescale_factor,itcl_int)
PRESCALE=.false.
call tcl_linkvar('prescale',prescale,itcl_int)
prescale_dd = 10
call tcl_linkvar('prescale_dd',prescale_dd,itcl_int)
variable = lstat
LSTAT=.FALSE.
call tcl_linkvar('lstat',lstat,itcl_int)
variable = fstat
FSTAT=.FALSE.
call tcl_linkvar('fstat',fstat,itcl_int)
variable = ltrk_do
LTRK_DO = .TRUE.
call tcl_linkvar('ltrk_do',ltrk_do,itcl_int)
variable = legn_do
LEGN_DO = .TRUE.
call tcl_linkvar('legn_do',legn_do,itcl_int)
variable = lec1_do
LEC1_DO = .TRUE.
call tcl_linkvar('lec1_do',lec1_do,itcl_int)
variable = lcc_do
LCC_DO = .TRUE.
call tcl_linkvar('lcc_do',lcc_do,itcl_int)
variable = ltof_do
LTOF_DO = .TRUE.
call tcl_linkvar('ltof_do',ltof_do,itcl_int)
variable = lst_do
LST_DO = .TRUE.
call tcl_linkvar('lst_do',lst_do,itcl_int)
variable = lusr0_do
LUSR0_DO = .TRUE.
call tcl_linkvar('lusr0_do',lusr0_do,itcl_int)
variable = lusr1_do
LUSR1_DO = .TRUE.
call tcl_linkvar('lusr1_do',lusr1_do,itcl_int)
variable = lusr2_do
LUSR2_DO = .TRUE.
call tcl_linkvar('lusr2_do',lusr2_do,itcl_int)
variable = lseb_do
LSEB_DO = .TRUE.
call tcl_linkvar('lseb_do',lseb_do,itcl_int)
variable = lhbid_do
LHBID_DO = .FALSE.
call tcl_linkvar('lhbid_do',lhbid_do,itcl_int)
variable = ltagger_do
LTAGGER_DO = .TRUE.
call tcl_linkvar('ltagger_do',ltagger_do,itcl_int)
variable = lcall_do
LCALL_DO = .TRUE.
call tcl_linkvar('lcall_do',lcall_do,itcl_int)
variable = ldisplay
LDISPLAY = .FALSE.
LDISPLAY_ALL = .FALSE.
call tcl_linkvar('ldisplay',ldisplay,itcl_int)
call tcl_linkvar('ldisplay_all',ldisplay_all,itcl_int)
variable = ldisplay_all
LDISPLAY_ALL = .FALSE.
call tcl_linkvar('ldisplay_all',ldisplay_all,itcl_int)
variable = levent_all
LEVENT_ALL = .FALSE.
call tcl_linkvar('levent_all',levent_all,itcl_int)
variable = lpar
lpar = .false.
call tcl_linkvar('lpar',lpar,itcl_int)
variable = lpause
c lpause is initialized in RECARG
call tcl_linkvar('lpause',lpause,itcl_int)
call tcl_linkvar('lpause_exit',lpause_exit,itcl_int)
variable = lpause_exit
call tcl_linkvar('lpause_exit',lpause_exit,itcl_int)
variable = lexit
LEXIT = .FALSE.
call tcl_linkvar('lexit',lexit,itcl_int)
LEXIT_PEND = .FALSE.
call tcl_linkvar('lexit_pend',lexit_pend,itcl_int)
variable = lexit_pend
LEXIT_PEND = .FALSE.
call tcl_linkvar('lexit_pend',lexit_pend,itcl_int)
variable = lquit
LQUIT = .FALSE.
call tcl_linkvar('lquit',lquit,itcl_int)
variable = lclose
LCLOSE = .FALSE.
call tcl_linkvar('lclose',lclose,itcl_int)
variable = leof
LEOF = .FALSE.
call tcl_linkvar('leof',leof,itcl_int)
variable = ntcl_check
NTCL_CHECK = 10
call tcl_linkvar('ntcl_check',NTCL_CHECK,itcl_int)
variable = itcl_catch
ITCL_CATCH = 10
call tcl_linkvar('itcl_catch',ITCL_CATCH,itcl_int)
variable = fpk_file
FPK_FILE=' '
call tcl_linkchar('fpk_file',fpk_file,itcl_string,lstring)
variable = tcl_init
SUBROUTINE RNTCL_INIT
c $Id: rntcl_init.F,v 1.11 1998/01/27 14:59:27 marki Exp $
c Documentation for subroutine RNTCL_INIT
1'$Id: rntcl_init.F,v 1.11 1998/01/27 14:59:27 marki Exp $'
PARAMETER (CRNAME='RNTCL_INIT')
c executable code for routine RNTCL_INIT:
call tcl_linkchar('tcl_init',tcl_init,itcl_string,lstring)
variable = rec_input
call tcl_linkchar('rec_input',rec_input,itcl_string,lstring)
variable = rec_output
call tcl_linkchar('rec_output',rec_output,itcl_string,lstring)
variable = rec_prompt
REC_PROMPT='RS> '
call tcl_linkchar('rec_prompt',rec_prompt,itcl_string,lstring)
call tmpro(rec_prompt(1:lenocc(rec_prompt)))
call set_prompt(rec_prompt(1:lenocc(rec_prompt)))
variable = ddl_file
DDL_FILE=' '
call tcl_linkchar('ddl_file',ddl_file,itcl_string,lstring)
variable = log_file_name
log_file_name = 'use_default'
call tcl_linkchar('log_file_name',log_file_name,itcl_string,
variable = chist_filename
chist_filename = 'use_default'
call tcl_linkchar('chist_filename',chist_filename,itcl_string,
variable = fpk_cmd
write(fstring,20)'fpk_cmd(',i,')'
write(fstring,21)'fpk_cmd(',i,')'
1 fpk_cmd(i),itcl_string,lstring)
c provide duplicate link to fpk_cmd(1) as fpk_cmd
call tcl_linkchar('fpk_cmd',
1 fpk_cmd(1),itcl_string,lstring)
variable = ifpack
ifpack = 0
call tcl_linkvar('ifpack',ifpack,itcl_int)
variable = lscat
lscat = .false.
call tcl_linkvar('lscat',lscat,itcl_int)
variable = scat_pgm_no
call tcl_linkvar('scat_pgm_no',scat_pgm_no,itcl_int)
variable = scat_ver_no
call tcl_linkvar('scat_ver_no',scat_ver_no,itcl_int)
variable = scat_handle
scat_handle(1) = -9999
call tcl_linkvar('scat_handle',scat_handle(1),itcl_int)
variable = scat_debug
scat_debug = 0
call tcl_linkvar('scat_debug',scat_debug,itcl_int)
variable = scat_host
scat_host = jobmach(1:lenocc(jobmach))
call tcl_linkchar('scat_host',scat_host,itcl_string,i20)
variable = scat_prog_start
scat_prog_start = 'EventStore'
call tcl_linkchar('scat_prog_start',scat_prog_start,itcl_string,i20)
variable = run_number
call tcl_linkvar('run_number',nccrun,itcl_int_readonly)
variable = event_number
call tcl_linkvar('event_number',nevent,itcl_int_readonly)
variable = ctcl_buff
c ctcl_buff contains a maximum 10,000 characters of messages
c ctcl_buff = ' '
call tcl_linkchar('ctcl_buff',ctcl_buff,itcl_string,lstring)
variable = lnamdmp
lnamdmp = .false.
call tcl_linkvar('lnamdmp',lnamdmp,itcl_int)
variable = levtdmp
levtdmp = .false.
call tcl_linkvar('levtdmp',levtdmp,itcl_int)
variable = lbnkdmp
lbnkdmp = .false.
call tcl_linkvar('lbnkdmp',lbnkdmp,itcl_int)
variable = lbnkedt
lbnkedt = .false.
call tcl_linkvar('lbnkedt',lbnkedt,itcl_int)
variable = cbname
cbname = ' '
call tcl_linkchar('cbname',cbname,itcl_string,lstring)
variable = nrow_tcl
nrow_tcl = 1
call tcl_linkvar('nrow_tcl',nrow_tcl,itcl_int)
variable = ncol_tcl
ncol_tcl = 1
call tcl_linkvar('ncol_tcl',ncol_tcl,itcl_int)
variable = nrec_tcl
nrec_tcl = 0
call tcl_linkvar('nrec_tcl',nrec_tcl,itcl_int)
variable = ibos_array
ibos_array = 1
call tcl_linkvar('ibos_array',ibos_array,itcl_int)
variable = rnew_value
rnew_value = 0.
call tcl_linkvar('rnew_value',rnew_value,itcl_double)
variable = mapmanager
mapmanager = 1
call tcl_linkvar('mapmanager',mapmanager,itcl_int)
variable = ncol_screen
ncol_screen=80
call tcl_linkvar('ncol_screen',ncol_screen,itcl_int)
variable = read_dd_ring
read_dd_ring = .false.
call tcl_linkvar('read_dd_ring',read_dd_ring,itcl_int)
variable = mode_dd
mode_dd = 2
call tcl_linkvar('mode_dd',mode_dd,itcl_int)
variable = prescale_dd
prescale_dd = 10
call tcl_linkvar('prescale_dd',prescale_dd,itcl_int)
variable = wait_dd
wait_dd = 0
call tcl_linkvar('wait_dd',wait_dd,itcl_int)
variable = cw1_dd
cw1_dd = 0
call tcl_linkvar('cw1_dd',cw1_dd,itcl_int)
variable = cw2_dd
cw2_dd = 0
call tcl_linkvar('cw2_dd',cw2_dd,itcl_int)
variable = cb1_dd
cb1_dd = 0
call tcl_linkvar('cb1_dd',cb1_dd,itcl_int)
variable = cb2_dd
cb2_dd = 0
call tcl_linkvar('cb2_dd',cb2_dd,itcl_int)
variable = suser_dd
suser_dd = 0
call tcl_linkvar('suser_dd',suser_dd,itcl_int)
./recutl/hsttcl_init.F
variable = lhist
lhist= .false.
call tcl_linkvar('lhist',lhist,itcl_int)
variable = lsetvar
lsetvar = .false.
call tcl_linkvar('lsetvar',lsetvar,itcl_int)
variable = nbook_stack
nbook_stack = 0
call tcl_linkvar('nbook_stack',nbook_stack,itcl_int)
variable = nfill_stack
nfill_stack = 0
call tcl_linkvar('nfill_stack',nfill_stack,itcl_int)
variable = lhbook
lhbook = .false.
call tcl_linkvar('lhbook',lhbook,itcl_int)
variable = hid
hid = 0
call tcl_linkvar('hid',hid,itcl_int)
variable = hist_cut
call tcl_linkchar('hist_cut',hist_cut,itcl_string,lstring)
variable = hdir
hdir = '//PAWC'
call tcl_linkchar('hdir',hdir,itcl_string,lstring)
variable = cshared_name
call tcl_linkchar('cshared_name',cshared_name,itcl_string,lstring)
cshared_name = ' '
write(cshared_name,25)iseq
variable = cosname
character*20 cosname
call tcl_linkchar('cosname',cosname,itcl_string,lstring)
call tcl_eval('setc cosname [exec uname]')
& ('setc cosname [exec '//clas_cms(1:lfl)//'/uname_clas]')
write(crmess,10)cosname(1:lenocc(cosname))
if (cosname .eq. 'HP-UX') then
elseif (cosname .eq. 'SunOS4') then
variable = iseq
integer inum, iseq
iseq = 0
iseq = mod(inum,100)
write(cshared_name,25)iseq
call tcl_linkvar('iseq',iseq,itcl_int)
./sc/tof_tcl_init.F
variable = tof_sub_peds
tof_sub_peds=1
call tcl_linkvar('tof_sub_peds',tof_sub_peds,i_integer)
c write(6,*)'Tof_sub_peds=',tof_sub_peds
variable = tof_timewalk
tof_timewalk=1
call tcl_linkvar('tof_timewalk',tof_timewalk,i_integer)
./scm/scm_tcl_init.F
variable = SCM_Dbg_hist
CALL TCL_LINKVAR('SCM_Dbg_hist',SCM_Dbg_hist,itcl_int)
variable = SCM_Dbg_dump
CALL TCL_LINKVAR('SCM_Dbg_dump',SCM_Dbg_dump,itcl_int)
variable = SCM_Intr_BOS
CALL TCL_LINKVAR('SCM_Intr_BOS',SCM_Intr_BOS,itcl_int)
variable = SCM_INpt_his
CALL TCL_LINKVAR('SCM_INpt_his',SCM_INpt_his,itcl_int)
./seb/evnttcl_init.F
variable = maxel
call tcl_linkvar('maxel',maxel,itcl_int)
variable = CUT_T_SCCC
call tcl_linkvar('CUT_T_SCCC',dCUT_T_SCCC,itcl_double)
variable = CUT_T_SCEC
call tcl_linkvar('CUT_T_SCEC',dCUT_T_SCEC,itcl_double)
variable = CUT_T_ECCC
call tcl_linkvar('CUT_T_ECCC',dCUT_T_ECCC,itcl_double)
variable = CUT_B_SC
call tcl_linkvar('CUT_B_SC',dCUT_B_SC,itcl_double)
variable = CUT_B_EC
call tcl_linkvar('CUT_B_EC',dCUT_B_EC,itcl_double)
variable = sampl_frac
call tcl_linkvar('sampl_frac',dsampl_frac,itcl_double)
variable = sigma_etrk
call tcl_linkvar('sigma_etrk',dsigma_etrk,itcl_double)
variable = m2_ecel_cut
call tcl_linkvar('m2_ecel_cut',dm2_ecel_cut,itcl_double)
variable = m3_ecel_cut
call tcl_linkvar('m3_ecel_cut',dm3_ecel_cut,itcl_double)
variable = etot_ecel_cut
call tcl_linkvar('etot_ecel_cut',detot_ecel_cut,itcl_double)
variable = eio_ecel_cut
call tcl_linkvar('eio_ecel_cut',deio_ecel_cut,itcl_double)
variable = trkcc_match
call tcl_linkvar('trkcc_match',dtrkcc_match,itcl_double)
variable = trksc_match
call tcl_linkvar('trksc_match',dtrksc_match,itcl_double)
variable = trkec_match
call tcl_linkvar('trkec_match',dtrkec_match,itcl_double)
variable = eccc_match
call tcl_linkvar('eccc_match',deccc_match,itcl_double)
variable = ecsc_match
call tcl_linkvar('ecsc_match',decsc_match,itcl_double)
variable = ecec_match
call tcl_linkvar('ecec_match',decec_match,itcl_double)
./st/st_tcl_init.F
variable = st_sub_peds
st_sub_peds=1
call tcl_linkvar('st_sub_peds',st_sub_peds,itcl_int)
variable = st_trkl_correl
st_trkl_correl=0
call tcl_linkvar('st_trkl_correl',st_trkl_correl,itcl_int)
variable = st_time_resolution
call tcl_linkvar('st_time_resolution',st_time_resolution,itcl_float)
st_time_resolution=0.5
./tag/tagtcl_init.F
variable = E_T_coincidence
c call tcl_linkvar('E_T_coincidence',E_T_coincidence,itcl_int)
c E_T_coincidence = 0.
./tcm/tcm_tcl_init.F
variable = TCM_Dets_his
CALL TCL_LINKVAR('TCM_Dets_his',TCM_Dets_his,itcl_int)
variable = TCM_Tcnt_his
CALL TCL_LINKVAR('TCM_Tcnt_his',TCM_Tcnt_his,itcl_int)
variable = TCM_Ecnt_his
CALL TCL_LINKVAR('TCM_Ecnt_his',TCM_Ecnt_his,itcl_int)
variable = TCM_Scal_his
CALL TCL_LINKVAR('TCM_Scal_his',TCM_Scal_his,itcl_int)
variable = TCM_Diag_his
CALL TCL_LINKVAR('TCM_Diag_his',TCM_Diag_his,itcl_int)
./trk/trktcl_init.F
variable = bfield_file_name
* bfield_file_name bfname Bfield file name.
Call Tcl_LinkChar('bfield_file_name',spar_torus_bfield_name,itcl_str,lstring)
variable = bfield_file_env
* bfield_file_env bfloc environment variable to bfield location.
Call Tcl_LinkChar('bfield_file_env' ,spar_torus_bfield_loc,itcl_str,lstring)
variable = mfield_file_name
* mfield_file_name bmname Mini field file name.
Call Tcl_LinkChar('mfield_file_name',spar_minitorus_bfield_name,itcl_str,lstring)
variable = mfield_file_env
* mfield_file_env bmloc environment variable to mini-field location.
Call Tcl_LinkChar('mfield_file_env' ,spar_minitorus_bfield_loc,itcl_str,lstring)
variable = poltarget_field_file_name
Call Tcl_LinkChar('poltarget_field_file_name',spar_poltarget_bfield_name,itcl_str,lstring)
variable = poltarget_field_file_env
Call Tcl_LinkChar('poltarget_field_file_env' ,spar_poltarget_bfield_loc,itcl_str,lstring)
variable = prlink_file_name
* prlink_file_name prname File name for the prlink file.
C Call Tcl_LinkChar('prlink_file_name',spar_prlink_name,itcl_str,lstring)
variable = prlink_file_env
* prlink_file_env prloc Environment for prlink file location
Call Tcl_LinkChar('prlink_file_env' ,spar_prlink_loc,itcl_str,lstring)
variable = bfield_grid(10)
variable = TargetLen
call Tcl_Linkvar('TargetLen', dpar_TargetLen,itcl_dbl)
variable = SigmaBeam
call Tcl_Linkvar('SigmaBeam', dpar_SigmaBeam,itcl_dbl)
variable = BeamOff(1)
variable = BeamOff(2)
variable = BeamAngle(1)
variable = BeamAngle(2)
variable = trk_prfit_chi2
call Tcl_Linkvar('trk_prfit_chi2', dpar_trk_prfit_chi2,itcl_dbl)
variable = trk_lrambfit_chi2
call Tcl_Linkvar('trk_lrambfit_chi2',dpar_trk_lrambfit_chi2,itcl_dbl)
variable = trk_tbtfit_chi2
call Tcl_Linkvar('trk_tbtfit_chi2', dpar_trk_tbtfit_chi2,itcl_dbl)
variable = trk_vx2fit_chi2
call Tcl_Linkvar('trk_vx2fit_chi2', dpar_trk_vx2fit_chi2,itcl_dbl)
variable = trk_vxfit_chi2
call Tcl_Linkvar('trk_vxfit_chi2', dpar_trk_vxfit_chi2,itcl_dbl)
variable = trk_zstep(1)
variable = trk_zstep(2)
variable = trk_zangle
call Tcl_Linkvar('trk_zangle', dpar_trk_zangle,itcl_dbl)
variable = trk_Chi2diff
call Tcl_Linkvar('trk_Chi2diff', dpar_trk_Chi2diff,itcl_dbl)
variable = trk_magtyp
call Tcl_LinkVar('trk_magtyp', ipar_trk_magtyp,itcl_int)
variable = trk_bgridtyp
call Tcl_LinkVar('trk_bgridtyp', ipar_trk_bgridtyp,itcl_int)
variable = mini_torus_current
C call Tcl_LinkVar('mini_torus_current',ipar_minitorus_current,itcl_int)
variable = torus_current
C call Tcl_LinkVar('mini_torus_current',ipar_minitorus_current,itcl_int)
C call Tcl_LinkVar('torus_current', ipar_torus_current,itcl_int)
variable = poltarget_current
call Tcl_LinkVar('poltarget_current',ipar_poltarget_current,itcl_int)
variable = Bsign_torus
C call Tcl_LinkVar('Bsign_torus', ipar_Bsign_torus,itcl_int)
variable = trk_statistics
call Tcl_LinkVar('trk_statistics',ipar_trk_statistics,itcl_int)
variable = trk_level
call Tcl_LinkVar('trk_level', ipar_trk_level,itcl_int)
variable = trk_sector
call Tcl_LinkVar('trk_sector', ipar_trk_sector,itcl_int)
variable = trk_mintracks
call Tcl_LinkVar('trk_mintracks', ipar_trk_mintracks,itcl_int)
variable = trk_maxsegm
call Tcl_LinkVar('trk_maxsegm', ipar_trk_maxsegm,itcl_int)
variable = trk_minlinks
call Tcl_LinkVar('trk_minlinks', ipar_trk_minlinks,itcl_int)
variable = trk_startlink
call Tcl_LinkVar('trk_startlink', ipar_trk_startlink,itcl_int)
variable = trk_minlramb
call Tcl_LinkVar('trk_minlramb', ipar_trk_minlramb,itcl_int)
variable = trk_beta1_part
call Tcl_LinkVar('trk_beta1_part', ipar_trk_beta1_part,itcl_int)
variable = trk_make_prlink
call Tcl_LinkVar('trk_make_prlink',ipar_trk_make_prlink,itcl_int)
variable = trk_multscat
call Tcl_LinkVar('trk_multscat', ipar_trk_multscat,itcl_int)
variable = trk_maxiter
call Tcl_LinkVar('trk_maxiter', ipar_trk_maxiter,itcl_int)
variable = trk_VXconstr
call Tcl_LinkVar('trk_VXconstr', ipar_trk_VXconstr,itcl_int)
variable = trk_calcTM
call Tcl_LinkVar('trk_calcTM', ipar_trk_calcTM,itcl_int)
variable = trk_histo
call Tcl_LinkVar('trk_histo', ipar_trk_histo,itcl_int)
variable = trk_ntuple
call Tcl_LinkVar('trk_ntuple', ipar_trk_ntuple,itcl_int)
./user/user_tcl_init.F
variable = my_integer
my_integer = 1
call tcl_linkvar('my_integer',my_integer,itcl_int)
variable = my_real
my_real = 0.0
call tcl_linkvar('my_real',my_real,itcl_double)
variable = my_string
my_string(1:) = '1234567890'
call tcl_linkchar('my_string',my_string,itcl_string, lmy_string)
./user_ana/user_tcl_init.F
./user_anaNM/user_tcl_init.F
./user_ntuplemakers/user_tcl_init.F