destroy_nlpj Subroutine

private subroutine destroy_nlpj(p)

Arguments

Type IntentOptional AttributesName
type(nlpj_t), pointer:: p

Contents

Source Code


Source Code

subroutine destroy_nlpj(p)
type(nlpj_t), pointer :: p

type(nlpj_t), pointer :: q

do while (associated(p))
   call destroy_radfunc(p%proj)
   q => p%next
   deallocate(p)
   p => q
enddo

end subroutine destroy_nlpj