label Subroutine

public subroutine label(string)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string

Variables

Type Visibility Attributes Name Initial
integer, public :: more
integer, public :: slen

Source Code

subroutine label(string)
character(len=*),intent(in) :: string
integer                     :: more
integer                     :: slen
intrinsic                   :: max, trim, repeat

   slen=len_trim(string)
   more=max(0,80-slen-2)/2
   write(*,'(1x,a)')repeat('=',79)
   write(*,'(1x,a)')repeat('=',more)//' '//string(:slen)//' '//repeat('=',80-more-3-slen)
   write(*,'(1x,a)')repeat('=',79)

end subroutine label