|
错误 1 error LNK2019: ÎÞ·¨½âÎöµÄÍⲿ·ûºÅ _LSARG£¬¸Ã·ûºÅÔÚº¯Êý _MAIN__ Öб»ÒýÓà Source1.obj
错误 2 fatal error LNK1120: 1 ¸öÎÞ·¨½âÎöµÄÍⲿÃüÁî Debug\Console1.exe
program main
USE NUMERICAL_LIBRARIES
implicit none
! Declare variables
integer , PARAMETER:: IPATH=1, LDA=3, N=3
real A(LDA,LDA), B(N), X(N)
! Set values for A and B
! A = ( 33.0 16.0 72.0)
! (-24.0 -10.0 -57.0)
! ( 18.0 -11.0 7.0)
! B = (129.0 -96.0 8.5)
DATA A/33.0, -24.0, 18.0, 16.0, -10.0, -11.0, 72.0, -57.0, 7.0/
DATA B/129.0, -96.0, 8.5/
CALL LSARG (N, A, LDA, B, IPATH, X)
write(*,*)x
END program main
|
|