文件名称:j
介绍说明－－下载内容均来自于网络，请自行研究使用
C *** **** PROGRAM GENEIGEN *** **
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION S(100,100),GM(100,100),NORD(100),D(100),B(99)
CHARACTER*16 FILE1,FILE2
CHARACTER*81 DUMMY
PRINT *, ********************************************
PRINT *, * GENERALIZED EIGENVALUE PROBLEM *
PRINT *, * Kx = lambda Mx *
PRINT *, * IMPLICIT SHIFT METHOD OF WILKINSON *
PRINT *, * T.R.Chandrupatla and A.D.Belegundu *
PRINT *, ********************************************
IMAX = 100
PI = 3.14159
-C ********** PROGRAM GENEIGEN ********
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION S(100,100),GM(100,100),NORD(100),D(100),B(99)
CHARACTER*16 FILE1,FILE2
CHARACTER*81 DUMMY
PRINT *, ********************************************
PRINT *, * GENERALIZED EIGENVALUE PROBLEM *
PRINT *, * Kx = lambda Mx *
PRINT *, * IMPLICIT SHIFT METHOD OF WILKINSON *
PRINT *, * T.R.Chandrupatla and A.D.Belegundu *
PRINT *, ********************************************
IMAX = 100
PI = 3.14159
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION S(100,100),GM(100,100),NORD(100),D(100),B(99)
CHARACTER*16 FILE1,FILE2
CHARACTER*81 DUMMY
PRINT *, ********************************************
PRINT *, * GENERALIZED EIGENVALUE PROBLEM *
PRINT *, * Kx = lambda Mx *
PRINT *, * IMPLICIT SHIFT METHOD OF WILKINSON *
PRINT *, * T.R.Chandrupatla and A.D.Belegundu *
PRINT *, ********************************************
IMAX = 100
PI = 3.14159
-C ********** PROGRAM GENEIGEN ********
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION S(100,100),GM(100,100),NORD(100),D(100),B(99)
CHARACTER*16 FILE1,FILE2
CHARACTER*81 DUMMY
PRINT *, ********************************************
PRINT *, * GENERALIZED EIGENVALUE PROBLEM *
PRINT *, * Kx = lambda Mx *
PRINT *, * IMPLICIT SHIFT METHOD OF WILKINSON *
PRINT *, * T.R.Chandrupatla and A.D.Belegundu *
PRINT *, ********************************************
IMAX = 100
PI = 3.14159
(系统自动生成,下载前可以参看下载内容)
下载文件列表
JACOBI.FOR