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