LHAPDF 5.2.2 source code.
[u/mrichter/AliRoot.git] / 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