Deallocate the weights used to provide error estimates
subroutine finish_weights if (allocated(werr)) deallocate (werr) if (allocated(wlerr)) deallocate (wlerr) init_weights_init = .false. end subroutine finish_weights