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