Data Structure Example -- Spice
Assigning circuit elements from a linked list to processors
Critical section to take next element off list
Circuit structure and variables are shared
Synchronize update of circuit current
subroutine diode(ii,loc1)
common /blank/ value(1000000)
equivalence (vdo(1),value(1)),(cdo(1),value(2))
call pnjlim(vdtemp,-(vdo(lx0+loct)+bv))
call intgr8(geq,ceq,capd,loct+3)
cdeq= cqd(lx0+loct) -geq*vd
value(lvn+node2)=value(lvn+node2)+cdeq
value(lvn+node3)=value(lvn+node3)-cdeq