& PTR_ISTATE_ARR,
TYPE(PTRACERS_ISTATE), POINTER :: PTR_ISTATE_ARR(:)
ALLOCATE( PTR_ISTATE_ARR(PTRACERS_numInUse) )
ALLOCATE( PTR_ISTATE_ARR(iPtr)som_P(1-OLx:sNx+OLx,