test_535_eigen.c running, check 535_double_f.out 4 0 A real, A imag, B real, B imag A matrix ( 1, 1)=( 1.00000000000000E+00, 4.00000000000000E+00) ( 1, 2)=( 2.00000000000000E+00, 4.00000000000000E+00) ( 1, 3)=( 3.00000000000000E+00, 4.00000000000000E+00) ( 1, 4)=( 4.00000000000000E+00, 4.00000000000000E+00) ( 2, 1)=( 2.00000000000000E+00, 4.00000000000000E+00) ( 2, 2)=( 2.00000000000000E+00, 3.00000000000000E+00) ( 2, 3)=( 3.00000000000000E+00, 3.00000000000000E+00) ( 2, 4)=( 4.00000000000000E+00, 3.00000000000000E+00) ( 3, 1)=( 3.00000000000000E+00, 4.00000000000000E+00) ( 3, 2)=( 3.00000000000000E+00, 3.00000000000000E+00) ( 3, 3)=( 3.00000000000000E+00, 2.00000000000000E+00) ( 3, 4)=( 4.00000000000000E+00, 2.00000000000000E+00) ( 4, 1)=( 4.00000000000000E+00, 4.00000000000000E+00) ( 4, 2)=( 4.00000000000000E+00, 3.00000000000000E+00) ( 4, 3)=( 4.00000000000000E+00, 2.00000000000000E+00) ( 4, 4)=( 4.00000000000000E+00, 1.00000000000000E+00) 4 0 B matrix ( 1, 1)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 1, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 1, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 1, 4)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 2)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 2, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 4)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 3)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 3, 4)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 4)=( 1.00000000000000E+00, 0.00000000000000E+00) cxhes results A matrix ( 1, 1)=( 1.00000000000000E+00, 4.00000000000000E+00) ( 1, 2)=( 4.27086170933452E+00, 7.33298897263096E+00) ( 1, 3)=( 1.79802538194887E+00,-1.14381426879846E+00) ( 1, 4)=( 2.88077453250149E-01,-6.02343765886679E-01) ( 2, 1)=( 8.77496438739212E+00, 0.00000000000000E+00) ( 2, 2)=( 1.21310137395770E+01,-2.39681649207388E+00) ( 2, 3)=(-1.86079054431771E+00,-3.02840669898022E+00) ( 2, 4)=(-6.74496437823183E-01,-6.17790985085834E-01) ( 3, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 2)=( 1.10029971844027E+00, 0.00000000000000E+00) ( 3, 3)=( 1.00712068787387E+00,-5.44126181708604E-02) ( 3, 4)=( 1.48301345381926E-01,-1.75377316396858E-01) ( 4, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 3)=( 2.05740220735349E-01, 0.00000000000000E+00) ( 4, 4)=( 5.08918246127728E-01,-2.03438020533362E-01) cxhes results B matrix ( 1, 1)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 1, 2)=(-0.00000000000000E+00, 0.00000000000000E+00) ( 1, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 1, 4)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 2)=( 7.07106781186548E-01,-7.07106781186548E-01) ( 2, 3)=( 9.16386848596627E-17,-6.97007252520528E-17) ( 2, 4)=(-6.81760093988565E-17, 1.20277310974983E-16) ( 3, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 3)=(-8.32050294337843E-01, 5.54700196225230E-01) ( 3, 4)=( 5.79912637008184E-17,-6.79794762148411E-17) ( 4, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 4)=(-4.35020193155971E-01, 9.00420696978108E-01) cxhes results Z matrix ( 1, 1)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 1, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 1, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 1, 4)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 2)=( 4.83493778415228E-01, 1.61164592805076E-01) ( 2, 3)=(-8.26732914763463E-01,-1.66718315931879E-01) ( 2, 4)=( 1.70227586011454E-01, 0.00000000000000E+00) ( 3, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 2)=( 5.64076074817766E-01, 8.05822964025380E-02) ( 3, 3)=( 1.82546004153259E-01, 6.33107528855229E-03) ( 3, 4)=(-7.85665781591323E-01, 1.57133156318264E-01) ( 4, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 2)=( 6.44658371220304E-01, 0.00000000000000E+00) ( 4, 3)=( 5.01210127010397E-01,-6.43659321002826E-02) ( 4, 4)=( 5.40145224844033E-01,-1.93142837974533E-01) cxval results A matrix ( 1, 1)=( 1.21589502925805E+01, 1.21589502925805E+01) ( 1, 2)=( 1.33129379042354E+00, 6.10368955173922E+00) ( 1, 3)=( 5.62931133339464E-01,-4.78201246558244E-01) ( 1, 4)=( 5.25701448982053E-01,-2.99847467032366E-01) ( 2, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 2)=(-1.34041559171100E+00,-1.34041559171100E+00) ( 2, 3)=(-7.15789834508356E-02, 2.34756252832171E-01) ( 2, 4)=(-8.88963078524683E-04, 1.70007874146785E-03) ( 3, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 3)=(-5.28040865561804E-01,-5.28040865561803E-01) ( 3, 4)=( 1.32881831541668E-02, 1.94418126398203E-02) ( 4, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 4)=(-2.90493835307684E-01,-2.90493835307684E-01) cxval results B matrix ( 1, 1)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 1, 2)=(-1.10059361089794E-16, 5.73025307208837E-17) ( 1, 3)=( 1.67279947363605E-17,-1.42536657120893E-17) ( 1, 4)=(-1.33880707926764E-16,-4.96641531299767E-17) ( 2, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 2, 2)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 2, 3)=(-5.89347202735627E-17, 3.20434471021317E-17) ( 2, 4)=( 3.51141916349058E-18, 3.00895196072341E-17) ( 3, 1)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 3, 3)=( 1.00000000000000E+00, 0.00000000000000E+00) ( 3, 4)=(-1.37056336570400E-17,-9.99714625341007E-17) ( 4, 1)=( 3.14018491736755E-16, 0.00000000000000E+00) ( 4, 2)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 3)=( 0.00000000000000E+00, 0.00000000000000E+00) ( 4, 4)=( 1.00000000000000E+00, 0.00000000000000E+00) cxval results Z matrix ( 1, 1)=(-3.79103902410794E-01,-3.61423020522968E-01) ( 1, 2)=(-6.28789567169443E-01, 1.51731685175795E-01) ( 1, 3)=( 3.41438628339866E-01,-3.29087827757320E-01) ( 1, 4)=( 1.75687827375286E-01, 2.26956954854992E-01) ( 2, 1)=(-3.84155983415320E-01,-2.79424071653052E-01) ( 2, 2)=(-2.65715707603119E-01, 1.04863428637213E-01) ( 2, 3)=(-3.05601676162760E-01, 4.26296235294041E-01) ( 2, 4)=(-4.31849108119160E-01,-4.80760518108325E-01) ( 3, 1)=(-4.20802566755277E-01,-2.20406059864815E-01) ( 3, 2)=( 2.48878675101685E-01,-1.40216193830129E-01) ( 3, 3)=(-3.18179734900137E-01, 4.16992231340390E-01) ( 3, 4)=( 4.47217304308586E-01, 4.66498671683064E-01) ( 4, 1)=(-4.92057611897406E-01,-1.79515111232622E-01) ( 4, 2)=( 5.14087280752081E-01,-3.92572403304604E-01) ( 4, 3)=( 2.14739201761557E-01,-4.22807533669221E-01) ( 4, 4)=(-2.13223322491900E-01,-1.92123623717686E-01) cxval error= 0 ALFR(I) ALFI(I) BETA(I) 1 1.21589502925805E+01 1.21589502925805E+01 1.00000000000000E+00 2 -1.34041559171100E+00 -1.34041559171100E+00 1.00000000000000E+00 3 -5.28040865561804E-01 -5.28040865561803E-01 1.00000000000000E+00 4 -2.90493835307684E-01 -2.90493835307684E-01 1.00000000000000E+00 cxvec final eigenvctors ( 1, 1)=(-7.23783447763730E-01,-6.90027188408723E-01) ( 1, 2)=(-8.79527981302859E-01, 4.75847170954411E-01) ( 1, 3)=( 4.39340364245092E-01,-7.81119162271452E-01) ( 1, 4)=( 3.29945197542422E-01, 2.97295184406978E-01) ( 2, 1)=(-7.33428857859971E-01,-5.33475167844823E-01) ( 2, 2)=(-3.12949121700626E-01, 3.73349257910813E-01) ( 2, 3)=(-6.72566961368403E-01, 7.40036271054111E-01) ( 2, 4)=(-6.92031247285771E-01,-7.21867545177160E-01) ( 3, 1)=(-8.03394348243696E-01,-4.20798247927591E-01) ( 3, 2)=( 4.87101448940982E-01,-7.68111940697695E-03) ( 3, 3)=(-5.10771804404469E-01, 8.59716327532167E-01) ( 3, 4)=( 6.68250253404188E-01, 7.43936555645194E-01) ( 4, 1)=(-9.39434156632811E-01,-3.42729434615119E-01) ( 4, 2)=( 9.23756180297246E-01,-3.82981095307120E-01) ( 4, 3)=( 6.18319328527231E-01,-6.48728224522640E-01) ( 4, 4)=(-2.71862168883237E-01,-3.51196841077746E-01) cxcheck resdul= 2.44213626027063E-16 eigdet check eigenvalues ( 4.88838515794352E-12, 2.54139916095114E-13) = DETERMINANT 1 = SINGULARITY 1 = SINGULARITY 1 = SINGULARITY evalvec check eigenvectors SUM( 1)= 1.68753899743024E-14 SUM( 2)= 2.83106871279415E-14 SUM( 3)= 7.76809172542414E-15 SUM( 4)= 4.15813217191641E-15 TOTAL EIGENVECTOR ERROR = 5.71123009995844E-14 test_535_eigen.adb finished