[ÇóÖú] ʹÓÃMKLÏֳɵĺ¯Êý£¬¿ÉÊÇÈ´³öÏÖÁËACCESS VIOLATION

ÎÒ´òËãÇó½â´óÐÍÏ¡Êè¾ØÕóÎÊÌ⣬ËùÒÔÑ¡ÓÃMKLÀïµÄLAPACK Ëæ±ãдÁËÒ»¶Î²âÊÔһϣ¬¾Í³öÏÖforrtl: severe (157): Program Exception - access violation ´íÎó¾Í³öÏÖÔÚMKL¸øµÄ³ÌÐòÀµ«ÊÇÒòΪ·â×°×Å£¬ËùÒÔ¿´²»µ½¡£ ÒÔÏÂÊÇÎҵĴúÂ룬SPOSVÊÇÎÒµ÷ÓõÄLAPACKº¯Êý:       program main       REAL A1(5,5),B1(5,3)           INTERFACE                 SUBROUTINE SPOSV(A,B)                     REAL A(:,           REAL B(:,                    END SUBROUTINE SPOSV                 END INTERFACE              DATA A1/38,3,4,6,5,3,48,6,7,7,4,6,52,1,6,6,7,1,56,10,5,7,6,10,74/              DATA B1/56,71,69,80,102,112,142,138,160,204,168,213,207,240,306/       CALL SPOSV(A1,B1)                   DO I=1,5              WRITE(*,*)(B1(I,J),J=1,3)              END DO              end program main ************************************************************************* MKL¸øµÄ×Ó³ÌÐòÀÓõÄÊǼٶ¨ÐÎ×´Êý×飬Õâ¸öÐèÒªÔÚÖ÷³ÌÐòÀï¼ÓÉÏÏÔʾ½è¿Ú¡£ÎÒ֮ǰûÓÐ×ö¡£ µ«ÊÇÏÖÔÚ¼ÓÉÏÁË£¬È´»¹ÊDz»ÐУ¬ÎÊÌâÒÀ¾É¡£¾ßÌåÎÊÌâ³öÏÖÔÚ¡°++pfbegin; ¡±ÕâÒ»ÐУº #ifdef CRTDLL void __cdecl _initterm ( #else  /* CRTDLL */ static void __cdecl _initterm ( #endif  /* CRTDLL */         _PVFV * pfbegin,         _PVFV * pfend         ) {         /*          * walk the table of function pointers from the bottom up, until          * the end is encountered.  Do not skip the first entry.  The initial          * value of pfbegin points to the first valid entry.  Do not try to          * execute what pfend points to.  Only entries before pfend are valid.          */         while ( pfbegin < pfend )         {             /*              * if current table entry is non-NULL, call thru it.              */             if ( *pfbegin != NULL )                 (**pfbegin)();                            ++pfbegin;     £¡£¡£¡£¡ÎÊÌâ³öÏÖÔÚÕâÀï         } } ÕâÒ»¶Î¾Ý˵ÊÇÔÚ¶ÔÈ«¾Ö±äÁ¿½øÐгõʼ»¯¡£µ«ÊDz¢²»¶®µÃ¾ßÌå¶ÔӦʲôÎÊÌâ¡£ ******************************************************************

»Ø¸´´ËÂ¥