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()
}