| Linker error during Pro*c program [message #94048] |
Wed, 19 November 2003 00:17  |
Y.Sreenivas
Messages: 3
Registered: November 2003
|
Junior Member |
|
|
I had written a program in Pro*C and i compiled it in Pro*c compiler. after that i got .c file. then i compiled it in turbo c compiler. here i am getting a linker error.
sqlcxt: linker error.
please tell me to correct this.
|
|
|
|
|
|
|
|
| Re: Linker error during Pro*c program [message #94427 is a reply to message #94395] |
Mon, 25 October 2004 09:24  |
Atul Kumar Srivastava
Messages: 1
Registered: October 2004
|
Junior Member |
|
|
Dear Sir,
while compiling the program it is showing 2 Errors:
"LIBCD.lib(crt0.obj) : error LNK2001: unresolved external symbol _main
Debug/MATRIX1.exe : fatal error LNK1120: 1 unresolved externalsError executing link.exe."
Here the program is given below, you please see it and try to send me the running code. Its an urgent for me and I tried so much but I could not resolve the problem. Please remove the errors and send me as an earliest. I would be very much thankful for your cooperation,
Thanking You,
with best regards,
atul
******************************************************
Program for Gause Jorden Elimination with Pivoting
******************************************************
#include <math.h>
#include "nrutil.h"
#include "nrutil.c"
#define SWAP(a,b) {temp=(a);(a)=(b);(b)=temp;}
void gaussj(float **a, int n, float **b, int m)
{
int *indxc,*indxr,*ipiv;
int icol,irow,l,ll,i,j,k;
float big,dum,pivinv,temp;
indxc=ivector(1,n);
indxr=ivector(1,n);
ipiv=ivector(1,n);
for(j=1;j<=n;j++)
{
big=0.0;
for(j=1;j<=n;j++)
if(ipiv[[j]]!=1)
for(k=1;k<=n;k++)
{
if(ipiv[[k]]==0)
{
if(fabs(a[[j]][[k]])>=big)
{
big=fabs(a[[j]][[k]]);
irow=j;
icol=k;
}
}else if (ipiv[[k]]>1) nrerror("gaussj:Singula Matrix-1");
}
++(ipiv[[icol]]);
if (irow!=icol)
{
for(l=1;l<=n;l++)SWAP(a[[irow]][[l]],a[[icol]][[l]])
for(l=1;l<=m;l++)SWAP(b[[irow]][[l]],b[[icol]][[l]])
}
indxr[[i]]=irow;
indxc[[i]]=icol;
if(a[[icol]][[icol]]==0.0) nrerror("gaussj:Singula Matrix-2");
pivinv = 1.0/a[[icol]][[icol]];
a[[icol]][[icol]]=1.0;
for(l=1;l<=n;l++) a[[icol]][[l]] *=pivinv;
for(l=1;l<=m;l++) b[[icol]][[l]] *=pivinv;
for(ll=1;ll<=n;ll++)
if(ll != icol)
{
dum=a[[ll]][[icol]];
a[[ll]][[icol]]=0.0;
for(l=1;l<=n;l++) a[[ll]][[l]] -=a[[icol]][[l]]*dum;
for(l=1;l<=m;l++) b[[ll]][[l]] -=b[[icol]][[l]]*dum;
}
}
for(l=n;l>=1;l--)
{
if(indxr[[l]] != indxc[[l]])
for(k=1;k<=n;k++)
SWAP(a[[k]][[indxr[[l]]]],a[[k]][[indxc[[l]]]]);
}
free_ivector(ipiv,1,n);
free_ivector(indxr,1,n);
free_ivector(indxc,1,n);
}
******************************************************
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
