polini.F

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

 
*72*********************************************************************
      subroutine polini
      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)
         enddo
      enddo
      close(iplst(3))
      
 901  format(5f14.9)
      
      return
      end