#!/bin/perl

do "parameters.pl";



$MeanUloop=`cat MeanUloop`;
$MeanPlasmaCurrent=`cat MeanPlasmaCurrent`;




open RESULT, ">OhmicHeatingPower";
    printf RESULT "%4.1f", abs($MeanUloop*$MeanPlasmaCurrent);
close RESULT;


exit;