]>
Commit | Line | Data |
---|---|---|
0caf84a5 | 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 |