1      Subroutine Banner(LU, Msg, Char, Top, Bot, Sides)
2C$Id$
3      Implicit NONE
4      Integer LU
5      Character*(*) Msg
6      Character*(1) Char
7      Logical Top, Bot, Sides
8C
9      Character*(80) Fmt
10      Integer MsgLen
11C
12C     Figure out message length & create an appropriate format
13C
14      MsgLen = Len(Msg)
15C
16      If ( Sides ) then
17         Write( Fmt, 9000) MsgLen+4, Char
18      Else
19         Write( Fmt, 9000) MsgLen, Char
20      EndIf
21 9000 Format('(1X,', I5, '(''', A, '''))')
22C
23      If ( Top ) Write (Lu, Fmt=Fmt)
24      If ( Sides ) then
25         Write (Lu, Fmt = 9010) Char, Msg, Char
26      Else
27         Write (Lu, Fmt = 9010) Msg
28      EndIf
29      If ( Bot ) Write (Lu, Fmt=Fmt)
30 9010 Format(1X, A, 1X, A, 1X, A)
31C
32      Return
33      End
34