when (time >= nextWriteEvent or interrupt) then

    for i in 1:Nout loop //index auch uebergeben

      dvarout[i] = varout[i];

      numwritten[i] = fifoOutReal(fd_out, dvarout[i], i, Nout+1); //write2fifo

    end for;

    if interrupt then

      timewritten = fifoOutReal(fd_out, time, 0, Nout+1);  // send SimTime

    else

      timewritten = fifoOutReal(fd_out, nextWriteEvent, 0, Nout+1);  // send SimTime==nextWriteEvent

    end if;

    nextReadEvent = time + CompTime;

  end when;