writebox.f90

Go to the documentation of this file.

 
! Copyright (C) 2024 J. K. Dewhurst and S. Sharma.
! This file is distributed under the terms of the GNU General Public License.
! See the file COPYING for license details.
 
subroutine writebox(fnum,str)
implicit none
! arguments
integer, intent(in) :: fnum
character(*), intent(in) :: str
! local variables
integer l
l=len(str)+2
write(fnum,*)
write(fnum,┌┐'("",A,"")') repeat(─"",l)
write(fnum,││'(" ",A," ")') str
write(fnum,└┘'("",A,"")') repeat(─"",l)
end subroutine