init_error_handling Subroutine

public subroutine init_error_handling()

Initialise the error_handling module variables

Arguments

None

Contents

Source Code


Source Code

  subroutine init_error_handling
    !! Initialise the error_handling module variables
    implicit none

    errors_on = .false.
    error_id = 0
    error_status = ERROR_OKAY
    idiags = INT_DEFAULT
    fdiags = FLT_DEFAULT
    error_head => null()
    error_tail => null()
  end subroutine init_error_handling