关于mfc调用fortran动态链接库的有关问题 。代码没错了，可是不出结果

关于mfc调用fortran动态链接库的问题 。。。代码没错了，可是不出结果
调用代码如下
THEADPARAMS*ptp=(THEADPARAMS*)p;
HWND hWnd=ptp->hWnd;

HMODULE hDll=LoadLibrary(_T("singlercs.dll"),NULL,NULL);
if(!hDll)
{
//::MessageBox(_T("loading dll fail"));
return 0;
}
void(*proc)(float*,float*,float*,float*,float*,float*,float*);
proc=(void(*)(float*,float*,float*,float*,float*,float*,float*))GetProcAddress(hDll,"MAIN"); //对于dll中的函数名在此必须大写
if(!proc)
{
//::MessageBox(_T("loading subroutine program fail"));
}
else
{
proc(&(ptp->lambda),&(ptp->Itheta),&(ptp->alpha),&(ptp->IphiB),&(ptp->IphiE),&(ptp->Increment),&(ptp->Stheta));
FreeLibrary(hDll);
return 0;
}


------解决方案--------------------

C/C++ code

void(__stdcall *proc)(float*,float*,float*,float*,float*,float*,float*);
 proc=(void(__stdcall *)(float*,float*,float*,float*,float*,float*,float*))GetProcAddress(hDll,"MAIN");