finish_weights Subroutine

public subroutine finish_weights()

Deallocate the weights used to provide error estimates

Arguments

None

Contents

Source Code


Source Code

  subroutine finish_weights
    if (allocated(werr)) deallocate (werr)
    if (allocated(wlerr)) deallocate (wlerr)
    init_weights_init = .false.
  end subroutine finish_weights