!+
! Subroutine csr_bell
!
! Subroutine to ring the terminal bell.
!-

subroutine CSR_bell

  print *, char(7)

end subroutine