PROGRAM testEigen
USE MKL95_PRECISION
USE MKL95_LAPACK
IMPLICIT NONE
REAL,DIMENSION(3)::array1=[1,2,3]
REAL,DIMENSION(6)::array2
INTEGER::n
CALL sptrd(array1,array2,'U',n)
WRITE(*,*) array1
WRITE(*,*) array2
END PROGRAM testEigen
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |