我用的是Intel Parallel Studio XE 2011和Microsoft Visual Studio 2010写的fortran程序,为什么出现错误
错误提示是:compilationaborted(code1)PROGRAMSVDPROUSEIMSL_LIBRARIESUSEWRCRN_INTUSEUMACH_INT...
错误提示是:compilation aborted(code 1)
PROGRAM SVDPRO
USE IMSL_LIBRARIES
USE WRCRN_INT
USE UMACH_INT
USE AMACH_INT
PARAMETER (NRA=6, NCA=3, LDA=NRA, LDU=NRA, LDV=NCA)
COMPLEX A(LDA,NCA), U(LDU,NRA), V(LDV,NCA), S(NCA)
DATA A/(1.0,2.0), (3.0,-2.0), (4.0,3.0), (2.0,-1.0), (1.0,-5.0),
+ (1.0,2.0), (3.0,2.0), (2.0,-4.0), (-2.0,1.0), (3.0,0.0),
+ (2.0,-5.0), (4.0,-2.0), (1.0,-4.0), (1.0,3.0), (1.0,4.0),
+ (3.0,-1.0), (2.0,2.0), (2.0,-3.0)/
IPATH = 11
TOL = AMACH(4)
TOL = 10. * TOL
CALL LSVCR(A, IPATH, S, TOL = TOL, IRANK=IRANK, U=U, V=V)
! Print results
CALL UMACH (2, NOUT)
WRITE (NOUT, *) 'IRANK =', IRANK
CALL WRCRN ('U', U, NRA, NCA)
CALL WRCRN ('S', S, 1, NCA, 1)
CALL WRCRN ('V', V)
!
END PROGRAM SVDPRO 展开
PROGRAM SVDPRO
USE IMSL_LIBRARIES
USE WRCRN_INT
USE UMACH_INT
USE AMACH_INT
PARAMETER (NRA=6, NCA=3, LDA=NRA, LDU=NRA, LDV=NCA)
COMPLEX A(LDA,NCA), U(LDU,NRA), V(LDV,NCA), S(NCA)
DATA A/(1.0,2.0), (3.0,-2.0), (4.0,3.0), (2.0,-1.0), (1.0,-5.0),
+ (1.0,2.0), (3.0,2.0), (2.0,-4.0), (-2.0,1.0), (3.0,0.0),
+ (2.0,-5.0), (4.0,-2.0), (1.0,-4.0), (1.0,3.0), (1.0,4.0),
+ (3.0,-1.0), (2.0,2.0), (2.0,-3.0)/
IPATH = 11
TOL = AMACH(4)
TOL = 10. * TOL
CALL LSVCR(A, IPATH, S, TOL = TOL, IRANK=IRANK, U=U, V=V)
! Print results
CALL UMACH (2, NOUT)
WRITE (NOUT, *) 'IRANK =', IRANK
CALL WRCRN ('U', U, NRA, NCA)
CALL WRCRN ('S', S, 1, NCA, 1)
CALL WRCRN ('V', V)
!
END PROGRAM SVDPRO 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询