1 /*
2
3 Copyright (C) 2001,2002,2003,2004 Michael Rubinstein
4
5 This file is part of the L-function package L.
6
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License
9 as published by the Free Software Foundation; either version 2
10 of the License, or (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 Check the License for details. You should have received a copy of it, along
18 with the package; see the file 'COPYING'. If not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20
21 */
22
23 #include "Lcommandline_globals.h"
24
25 //-----Global variables--------------------------------
26
27 int current_L_type; //1,2,3:For the 3 diff types of L-functions: int, Double, Complex
28
29 L_function<int> int_L,int_L2,int_L3;
30 L_function<Double> Double_L,Double_L2,Double_L3;
31 L_function<Complex> Complex_L,Complex_L2,Complex_L3;
32
33 // below is needed since default initialization (i.e. default constructor)
34 // includes things like Pi. Pi is computed
35 // in Lgobals.cc: Linitialize_globals() according to required precision.
36 // So we need to reintialize after first calling Linitialize_globals
37 // in Lcommandline.cc
initialize_commandline_globals()38 void initialize_commandline_globals(){
39
40 L_function<int> tmp_int_L,tmp_int_L2;
41 L_function<Double> tmp_Double_L,tmp_Double_L2;
42 L_function<Complex> tmp_Complex_L,tmp_Complex_L2;
43
44 int_L = tmp_int_L;
45 int_L2 = tmp_int_L2;
46
47 Double_L = tmp_Double_L;
48 Double_L2 = tmp_Double_L2;
49
50 Complex_L = tmp_Complex_L;
51 Complex_L2 = tmp_Complex_L2;
52
53 }
54
55
56