C / C++ / MFC

<br />
#define WIN32_LEAN_AND_MEAN<br />
#include <math.h><br />
#include <windows.h><br />
#include <stdio.h><br />
#include <stdlib.h><br />
#include "lapack\matrix_clapack.h"<br />
<br />
<br />
#define NDIM 2 <br />
#define M_PI 3.14<br />
<br />
int main (){<br />
<br />
integer i, j, info2;<br />
integer N, NRHS, LDA, LDB;<br />
doublecomplex *A;<br />
doublecomplex *B;<br />
static integer IPIV[NDIM], INFO;<br />
<br />
A = (doublecomplex*) malloc(NDIM*NDIM*sizeof(doublecomplex));<br />
B = (doublecomplex*) malloc(NDIM*sizeof(doublecomplex));<br />
<br />
N=NDIM; NRHS=1; LDA=NDIM; LDB=NDIM;<br />
<br />
    for (i=0;i<N;i++){<br />
       for (j=0;j<N;j++) {<br />
          A[i+N*j].r = cos(M_PI*(i+1)*3.0/4.0);  <br />
          A[i+N*j].i = sin(M_PI*(j+1)/5.0);  <br />
          printf("   %f + %fi \n",A[i+N*j].r, A[i+N*j].i);<br />
       }<br />
    }<br />
<br />
   B[0].r = 1.0; <br />
   B[0].i = 1.0; <br />
   B[1].r = 2.0;<br />
   B[1].i = 3.0;<br />
<br />
<br />
   info2 = zgesv_(&N, &NRHS, A, &LDA, IPIV, B, &LDB, &INFO);<br />
<br />
   printf("info %d \n",INFO);<br />
 <br />
   for (i=0;i<N;i++)<br />
      printf("   %f + %fi \n",B[i].r, B[i].i);<br />
}<br />

<br />
1>------ Build started: Project: test, Configuration: Debug Win32 ------<br />
1>Compiling...<br />
1>test.cpp<br />
1>Linking...<br />
1>test.obj : error LNK2019: unresolved external symbol _zgesv_ referenced in function _main<br />
1>D:\Project\test\Debug\test.exe : fatal error LNK1120: 1 unresolved externals<br />
1>Build log was saved at "file://d:\Project\test\test\Debug\BuildLog.htm"<br />
1>test - 2 error(s), 0 warning(s)<br />
========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========<br />
<br />