00001 #include "arith.h" 00002 00003 REAL fugo_calc(f,linetab,i,en,r) 00004 MATRIX f; 00005 LINE linetab[MAXEDGE]; 00006 int i,en,r; 00007 { 00008 REAL fugo; 00009 register int j; 00010 00011 fugo=0.0; 00012 for(j=0; j<r; j++) 00013 fugo += f[i][j] * linetab[en].s[j]; 00014 00015 return(fugo); 00016 }