header Subroutine

        subroutine header(line)
        character(len=*),intent(in) :: line
        write(*,'(*(a))')'#',repeat('=',len(line)+2),'#'
        write(*,'("|",1x,a,1x,"|")') line
        write(*,'(*(a))')'#',repeat('=',len(line)+2),'#'
        end subroutine header