-
Notifications
You must be signed in to change notification settings - Fork 0
/
ft.pl
55 lines (43 loc) · 1.1 KB
/
ft.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#!/usr/bin/perl -w
use strict;
use lib ("$ENV{GEMC}/io");
use utils;
use parameters;
use geometry;
use hit;
use bank;
use math;
use Math::Trig;
# Help Message
sub help()
{
print "\n Usage: \n";
print " ft.pl <configuration filename>\n";
print " Will create the CLAS12 Forward Tagger (ft) using the variation specified in the configuration file\n";
print " Note: The passport and .visa files must be present to connect to MYSQL. \n\n";
exit;
}
# Make sure the argument list is correct
if( scalar @ARGV != 1)
{
help();
exit;
}
# Loading configuration file and paramters
our %configuration = load_configuration($ARGV[0]);
# One can change the "variation" here if one is desired different from the config.dat
# $configuration{"variation"} = "myvar";
# To get the parameters proper authentication is needed.
# our %parameters = get_parameters(%configuration);
# Loading FT specific subroutines
require "./hit.pl";
require "./bank.pl";
require "./geometry.pl";
require "./materials.pl";
define_ft_hits();
define_banks();
make_ft_shield();
make_ft_cal();
make_ft_hodo();
make_ft_trk();
print_materials();