LHAPDF veraion 5.9.1
[u/mrichter/AliRoot.git] / LHAPDF / lhapdf-5.9.1 / src / commoninit.f
1 ! -*- F90 -*-
2
3
4 subroutine commoninit()
5   include 'common.inc'
6   integer i
7
8   if (commoninitflag .ne. 'commonblockinitdone') then
9      !print *, "Initialising LHAPDF steering data"
10      commoninitflag = 'commonblockinitdone'
11
12      ! LHAPDF common block
13      lhaname = ' '
14      lhaset = 0
15      lhamemb = 0
16      
17      ! LHASETS common block
18      do i = 1, nmxset
19         lhanames(i) = ' '
20         lhanumbers(i) = 0
21         lhamembers(i) = 0
22      end do
23      nsets = 0
24      
25      ! LHAPDFC common block
26      lhapath = 'pdfsets'
27      
28      ! LHACONTROL common block
29
30      do i = 1, 20
31         lhaparm(i) = ' '
32         lhavalue(i) = 0.0d0
33      end do
34
35      ! LHAGLSTA common block
36      xminnum = 0.0d0
37      xmaxnum = 0.0d0
38      q2minnum = 0.0d0
39      q2maxnum = 0.0d0
40      totnum = 0.0d0
41      xminnup = 0.0d0
42      xmaxnup = 0.0d0
43      q2minnup = 0.0d0
44      q2maxnup = 0.0d0
45      totnup = 0.0d0
46   end if
47   
48 end subroutine commoninit