delete_gcp_api Subroutine

public subroutine delete_gcp_api(vgcp) bind(C, name=namespace//"delete_gcp")

Delete counter-poise parameter handle object

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(inout)			::	vgcp

Source Code

subroutine delete_gcp_api(vgcp) &
      & bind(C, name=namespace//"delete_gcp")
   type(c_ptr), intent(inout) :: vgcp
   type(vp_error), pointer :: gcp

   if (c_associated(vgcp)) then
      call c_f_pointer(vgcp, gcp)

      deallocate(gcp)
      vgcp = c_null_ptr
   end if

end subroutine delete_gcp_api