mat_prompt Subroutine

public subroutine mat_prompt(pause)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: pause

Contents

Variables

Source Code

mat_prompt

Variables

Type Visibility Attributes Name Initial
character(len=1), public :: dummy

Source Code

subroutine mat_prompt(pause)

! ident_19="@(#) M_matrix mat_prompt(3f) issue interactive prompt with optional pause"

integer,intent(in) :: pause
character(len=1)   :: dummy

   if(.not.G_PROMPT)return ! in batch mode
   ! write prompt using format that stays on current line
   if(G_INPUT_LUN.eq.STDIN)then
     WRITE(STDOUT,'(''<>'')',advance='no')   ! write prompt to interactive input
     if (pause .eq. 1) read(G_INPUT_LUN,'(a1)') dummy
   endif

end subroutine mat_prompt