: $Id: pointer.inc,v 1.2 2003/02/12 22:29:39 billl Exp $
TITLE provide pointer to an object

COMMENT
use with strobj.obj(PP.ptr) to get object access
ENDCOMMENT

NEURON {
  RANGE p
}

ASSIGNED {
  p
}

VERBATIM
#ifndef NRN_VERSION_GTEQ_8_2_0
extern Object** hoc_objgetarg(int);
#endif
ENDVERBATIM

PROCEDURE setptr() {
  VERBATIM  
  {
    p =     (double)(unsigned long)*hoc_objgetarg(1);
  }  
  ENDVERBATIM  
}