mat_getch Subroutine

subroutine mat_getch()

! ident_15="@(#) M_matrix mat_getch(3f) get next character from input line into G_CHRA"

   G_CHRA = G_LIN(G_LINE_POINTER(4))
   if (G_CHRA .ne. GG_EOL) G_LINE_POINTER(4) = G_LINE_POINTER(4) + 1

end subroutine mat_getch