1 subroutine descriptionPDF(nset,id)
3 include 'parmsetup.inc'
5 integer id,token,l,nline
7 character*64 desc(nmxset,linemax)
9 common/lhasilent/lhasilent
14 + write(*,*) '>>>>>> PDF description: <<<<<<'
18 if(lhasilent.eq.0) then
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'
33 if(lhasilent.eq.0) then
34 write(*,*)'>>>>>> <<<<<<'
41 write(*,*) desc(nset,l)