1      subroutine plend(title,notitle)
2      implicit double precision (a-h,o-z)
3      character title*80, keywrd*320, keyhlp*80, keyori*320
4      character esc, eot
5      logical notitle
6      common /keywrd/ keywrd,keyori
7      common /rdwr/   iun1,iun2,iun3,iun4,iun5
8
9
10      esc = char(27)
11      eot = char(4)
12
13      keyhlp(1:80)  = title(1:80)
14      keyori(1:320) = keywrd(1:320)
15      n1 = 1
16      n2 = 1
17      do i=1,320
18         if (i.lt.80) then
19           if (title(i:i).eq.'('.or.title(i:i).eq.')') then
20             keyhlp(i+n1:80)       = title(i:80-n1)
21             keyhlp(i+n1-1:i+n1-1) = char(92)
22             n1 = n1 + 1
23           endif
24         endif
25         if (keywrd(i:i).eq.'('.or.keywrd(i:i).eq.')') then
26           keyori(i+n2:320)      = keywrd(i:320-n2)
27           keyori(i+n2-1:i+n2-1) = char(92)
28           n2 = n2 + 1
29         endif
30      end do
31
32      if (.not.notitle) then
33         write(iun4,'(''titleandlogo {'')')
34         write(iun4,'(''labelcol'')')
35         write(iun4,'(''2100 1700 m'')')
36         write(iun4,'(''('',a,'') show'')')keyhlp(1:40)
37         write(iun4,'(''2100 1640 m'')')
38         write(iun4,'(''('',a,'') show'')')keyhlp(41:80)
39         write(iun4,'(''2100 1580 m'')')
40         write(iun4,'(''('',a,'') show'')')keyori(1:40)
41         write(iun4,'(''2100 1520 m'')')
42         write(iun4,'(''('',a,'') show'')')keyori(41:80)
43         write(iun4,'(''2100 1460 m'')')
44         write(iun4,'(''('',a,'') show'')')keywrd(81:120)
45         write(iun4,'(''2100 1400 m'')')
46         write(iun4,'(''('',a,'') show'')')keywrd(121:160)
47         write(iun4,'(''/print { 0 0 moveto '',
48     &       ''4 0 (MOLDEN) ashow } def'')')
49         write(iun4,'(''2200 1850 translate'')')
50         write(iun4,'(''4.0 4.0 scale'')')
51         write(iun4,'(''.95 -.05 0'')')
52         write(iun4,
53     &       '(''{setgray print -1.5 +1.5 translate } for'')')
54         write(iun4,'(''1 setgray print'')')
55         write(iun4,'(''} if'')')
56      endif
57      call plpend
58
59      return
60      end
61
62      subroutine plpend
63      implicit double precision (a-h,o-z)
64      common /rdwr/   iun1,iun2,iun3,iun4,iun5
65
66      write(iun4,'(''/#copies    1 def'')')
67      write(iun4,'(''showpage'')')
68      write(iun4,'(''39.00 753.00 translate'')')
69      write(iun4,'(''-90.00 rotate'')')
70      write(iun4,'(''1 setlinewidth'')')
71      write(iun4,'(''2 setlinecap'')')
72      write(iun4,'(''0.240000 0.240000 scale'')')
73      write(iun4,'(''n'')')
74
75      return
76      end
77