nloini.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file nloini.F

C*********************************************************************
      subroutine nloini
      implicit real*8(a-h,o-z)
      common/pdist/arraya(151,20,6)
      INTEGER imxpdf
      parameter(imxpdf=40)
      COMMON /pepadm/cpdfnam(2,imxpdf),ipdfnam(2,imxpdf),
     &       iplst(10),cunpol,cpol
      CHARACTER*256 cpdfnam,cunpol,cpol
      INTEGER iplst,ipdfnam
      SAVE /pepadm/

**************************************************************
*      
*   IPLST(1) =  0 (default) : number of PDF warnings
*   IPLST(2) = 11 (default) : unit -1- for pdf files
*   IPLST(3) = 12 (default) : unit -2- for pdf files      
*
**************************************************************      

      
      open(iplst(3),file=cpol,status='UNKNOWN')
      do i=1,20
         do j=1,151
            read(iplst(3),901) arraya(j,i,1),arraya(j,i,2),
     &        arraya(j,i,3),arraya(j,i,4),arraya(j,i,5),arraya(j,i,6)
         enddo
      enddo
      close(iplst(3))

 901  format(6f14.9)

      return
      end