**********************************************************
      program example
**********************************************************
*
*    calculation of LSS'2010 NLO PDFs 
*
*     example program
*
**********************************************************
*

      IMPLICIT DOUBLE PRECISION (A-H,O-Z)

      integer iini,iset  
      common /intini/ iini

      OPEN(6,FILE='LSS14_example.dat'
     1 ,STATUS='NEW',FORM='FORMATTED')


          do iiset=1,2


      iini = 0                  ! reading data first time
*
*     choose order of parton sets and fit mode
*   INPUT:   ISET = number of the parton set                         *
*              (TO BE DEFINED BY THE USER ):                         *
*            ISET = 1   NEXT-TO-LEADING ORDER (xDelta G > 0)         *
*                      (DATA FILE 'NLO_MS_delGpos.grid' UNIT=11)     *
*
*            ISET = 2   NEXT-TO-LEADING ORDER (changing sign         *
*                       xDelta G)                                    *
*                      (DATA FILE 'NLO_MS_chsign_delG.grid' UNIT=22) *


        iset=iiset
  
      PRINT '(''iset = '' ,i3)'
     1 ,iset	  
         write(6,2000)	 
  
	q2=1.5d0
	x=0.1d0

      call LSS2014 (ISET,X,Q2,UUB,DDB,ST,GL)


        write(6,2001) q2,x,UUB,DDB,ST,GL
      

        enddo


 2000 format('*qq2,x,UUB,DDB,ST,GL')
 2001   FORMAT (2e9.3,13(1pe12.4))
*
      end


      include 'LSS2014_PDFs.f'        

*=======================================================================