line 59, change 'call spread(1.,wk2,ndim,ckk,MACC)' to 'call spread(1.d0,wk2,ndim,ckk,MACC)' fix credit: TVR