# this is an ode that calls gpu code to get the right-hand side
# 
#
@ autoeval=0
table w % 262144 0 262143 ran(1)/256
params iapp=0.1,phi=.333
param va=-.01,vb=0.15,vc=0.1,vd=0.145,gca=1
params vk=-.7,vl=-.5,gk=2.0,gl=.5
par tsyn=1,gsyn=0.1,vsyn=0
par vth=0,vshp=.05
special vp=import(MLGPU.SO,MLGPU,1536,v0,w)
v[0..511]'=vp([j])
w[0..511]'=vp([j]+512)
s[0..511]'=vp([j]+1024)
v[0..512](0)=ran(1)-.5
@ total=200, autoeval=0
d
