simple_die_routine Subroutine

public subroutine simple_die_routine(str)

Arguments

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

Contents

Source Code

simple_die_routine

Source Code

  subroutine simple_die_routine(str)
    character(len=*), intent(in)   :: str
    write(0,'(a,a)') "[libpsml default error handler]: " // trim(str)
    write(6,'(a,a)') "[libpsml default error handler]: " // trim(str)
    write(6,'(a)') "Use ps_set_error_handler(custom_handler) to configure"
    stop
  end subroutine simple_die_routine