psml_die Subroutine

subroutine psml_die(str)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str

Contents

Source Code

psml_die

Source Code

subroutine psml_die(str)
  character(len=*), intent(in) :: str

  write(0,"(a)") trim(str)
  stop

end subroutine psml_die