[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.5.1 / src / commoninit.f

! -*- F90 -*-


subroutine commoninit()
  include 'common.inc'
  integer i

  if (commoninitflag .ne. 'commonblockinitdone') then
     !print *, "Initialising LHAPDF steering data"
     commoninitflag = 'commonblockinitdone'

     ! LHAPDF common block
     lhaname = ' '
     lhaset = 0
     lhamemb = 0
     
     ! LHASETS common block
     do i = 1, nmxset
        lhanames(i) = ' '
        lhanumbers(i) = 0
        lhamembers(i) = 0
     end do
     nsets = 0
     
     ! LHAPDFC common block
     lhapath = 'pdfsets'
     
     ! LHACONTROL common block

     do i = 1, 20
        lhaparm(i) = ' '
        lhavalue(i) = 0.0d0
     end do

     ! LHAGLSTA common block
     xminnum = 0.0d0
     xmaxnum = 0.0d0
     q2minnum = 0.0d0
     q2maxnum = 0.0d0
     totnum = 0.0d0
     xminnup = 0.0d0
     xmaxnup = 0.0d0
     q2minnup = 0.0d0
     q2maxnup = 0.0d0
     totnup = 0.0d0
  end if
  
end subroutine commoninit
Commit	Line	Data
0caf84a5	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