fugo_calc.c
Go to the documentation of this file.
1 #include "arith.h"
2 
3 REAL fugo_calc(f,linetab,i,en,r)
4 MATRIX f;
5 LINE linetab[MAXEDGE];
6 int i,en,r;
7 {
8  REAL fugo;
9  register int j;
10 
11  fugo=0.0;
12  for(j=0; j<r; j++)
13  fugo += f[i][j] * linetab[en].s[j];
14 
15  return(fugo);
16 }
double REAL
Definition: arith.h:25
#define MAXEDGE
Definition: arith.h:14
Definition: arith.h:33
short s
Definition: structsize.c:2
VECTOR MATRIX[MAX]
Definition: arith.h:27
REAL fugo_calc(MATRIX f, linetab, int i, int en, int r)
Definition: fugo_calc.c:3


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 6 2019 20:00:44