fugo_calc.c
Go to the documentation of this file.
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 }


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Sep 3 2015 10:36:19