print "loading output-routine for leak ......" proc WriteLeakCurrents() { local TStepCount, VStepCount // +++++ LEAK +++++ sprint(iClampFileName,"SimLeak/%s.iL",LeakFileName) print " Writing LeakCurrents to ", iClampFileName //debug wopen(iClampFileName) // WriteOpen /ClampCurrents/ExperimentName.iCl fprint(" ExperimentName: _%s_",ExperimentName) fprint(" Number of recorded voltage steps:\t\t\t\t%g\n",NumVSteps) fprint(" vclmp \t iclmp(time) \n \t") for TStepCount=0,NumTSteps fprint("%g\t",MeasTimes[TStepCount]) fprint("\n") for VStepCount=0,NumVSteps-1 { fprint("%g\t",vclmp[VStepCount]) for TStepCount=0,NumTSteps { fprint("%g\t",leak[VStepCount][TStepCount]) } // writes: V I(V,t1) I(V,t2) ... fprint("\n") } // next v wopen() }