deallocate_solver Subroutine

Seyed Ali Ghasemi
5 statements
Source File

private pure elemental subroutine deallocate_solver(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(nlsolver),	intent(inout)			::	this

Source Code

   elemental pure subroutine deallocate_solver(this)
      type(nlsolver), intent(inout)     :: this

      if (allocated(this%nl_method)) deallocate(this%nl_method)
      if (allocated(this%fdm_method)) deallocate(this%fdm_method)
   end subroutine deallocate_solver