LHAPDF/lhapdf5.2.2/description.f

   1       subroutine descriptionPDF(nset,id)
   2       implicit none
   3       include 'parmsetup.inc'
   4       integer nset
   5       integer id,token,l,nline
   6       character*64 string
   7       character*64 desc(nmxset,linemax)
   8       integer lhasilent
   9       common/lhasilent/lhasilent
  10       save nline,desc
  11 *
  12       l=0
  13       if(lhasilent.eq.0)
  14      + write(*,*) '>>>>>> PDF description: <<<<<<'
  15  1    read(1,*) string
  16       id=token(string)
  17       if (id.eq.0) then
  18          if(lhasilent.eq.0) then
  19           write(*,*) string
  20          endif
  21          l=l+1
  22          if (l.gt.linemax) then
  23             write(*,*) 'Too many lines in PDF description to store.'
  24             write(*,*) 'Increase linemax variable in parmsetup.inc'
  25             write(*,*) 'Ignoring additional description lines'
  26             l=linemax
  27          else
  28             desc(nset,l)=string
  29             goto 1
  30          endif
  31       endif
  32       nline=l
  33       if(lhasilent.eq.0) then
  34        write(*,*)'>>>>>>                   <<<<<<'
  35        write(*,*)
  36       endif
  37       return
  38 *
  39       entry GetDescM(nset)
  40       do l=1,nline
  41          write(*,*) desc(nset,l)
  42       enddo
  43       return
  44 *
  45       end
  46 *
  47       subroutine GetDesc()
  48       implicit none
  49       integer nset
  50       nset = 1
  51       call GetDescM(nset)
  52       return
  53       end