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

! -*- F90 -*-


      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
0caf84a5	1	! -- F90 --
	2
	3
	4	subroutine USERevolve(x,Q,f)
	5	implicit none
	6	integer nset
	7	real*8 f(-6:6)
	8	real*8 x,Q
	9	real*8 alfas
	10	real*8 Eorder,Q2fit
	11	return
	12	!
	13	entry USERread(nset)
	14	return
	15	!
	16	entry USERalfa(alfas,Q)
	17	return
	18	!
	19	entry USERinit(nset,Eorder,Q2fit)
	20	return
	21	!
	22	entry USERpdf(nset)
	23	return
	24	!
	25	END