Introduction - If you have any usage issues, please Google them yourself
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