custom_psml_die Subroutine

subroutine custom_psml_die(str)

Arguments

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

Contents

Source Code

custom_psml_die

Source Code

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

  write(0,"(a,a)") "Custom psml_die:: ", str
  write(6,"(a,a)") "Custom psml_die:: ", str
  STOP

end subroutine custom_psml_die