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