>>248
長いのですが、、、

int func( double a[N][N], double b[N][M], double p[L][N], double g[M][N],
int Ncol,int Nrow,double K[M][N])
{
int i,j,k;
double InvF[N][N],s,tmp[10][10];

for (Pole_Count = 0; Pole_Count < Ncol; Pole_Count ++){

if(p[1][Pole_Count] == 0){
if(Pole_RealCal( a, b, p, g, Ncol) == 0){
/* エラー処理 */
return 0;
}
}else{
if(Pole_ImgCal( a, b, p, g, Ncol) == 0){
/* エラー処理 */
return 0;
}
}
}

for (i = 0; i < N; i++)
for (j = 0; j < M; j++) K[i][j] = 0.0;

return 1;
}