FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | a | |||
character(len=*), | intent(in), | optional | :: | b | ||
character(len=*), | intent(in), | optional | :: | c |
subroutine tell (a, b, c)
implicit none
integer :: j
character (*), intent (in) :: a
character (*), intent (in), optional :: b, c
character (500) :: hack
j = len_trim(a)
if (present(b)) then
j = max(j, len_trim(b))
if (present(c)) j = max(j, len_trim(c))
end if
write (6, *)
write (6, *)
hack = repeat('*', j+2)
write (6, 10) ' '//trim(hack)
write (6, 10) ' '//trim(a)
write (interactive_record, 10) trim(a)
if (present(b)) then
write (6, 10) ' '//trim(b)
write (interactive_record, 10) trim(b)
if (present(c)) then
write (6, 10) ' '//trim(c)
write (interactive_record, 10) trim(c)
end if
end if
write (6, 10) ' '//trim(hack)
write (6, *)
write (6, *)
10 format (a)
end subroutine tell