sub error
    {
    my ($i);

    for($i=0;$i<$c_NUMTRAIN;$i++) {
    print "netanswer called from error()\n";
    &netanswer($actafer[$i]);
   # $ecm[$i]=ec(\@{$desout[$i]},\@z,$c_OUT);
    $ecm[$i]=ec($i,$c_OUT);
    }