LHAPDF/lhapdf5.5.1/src/description.f

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