[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.3.1 / wrapUSER.f

      subroutine USERevolve(x,Q,f)
      implicit none
      integer nset
      real*8 f(-6:6)
      real*8 x,Q
      real*8 alfas
      real*8 Eorder,Q2fit	
      return
*
      entry USERread(nset)
      return
*
      entry USERalfa(alfas,Q)
      return
*
      entry USERinit(nset,Eorder,Q2fit)
      return
*
      entry USERpdf(nset)
      return
*
      end
*
Commit	Line	Data
4e9e3152	1	subroutine USERevolve(x,Q,f)
	2	implicit none
	3	integer nset
	4	real*8 f(-6:6)
	5	real*8 x,Q
	6	real*8 alfas
	7	real*8 Eorder,Q2fit
	8	return
	9	*
	10	entry USERread(nset)
	11	return
	12	*
	13	entry USERalfa(alfas,Q)
	14	return
	15	*
	16	entry USERinit(nset,Eorder,Q2fit)
	17	return
	18	*
	19	entry USERpdf(nset)
	20	return
	21	*
	22	end
	23	*