subroutine Agen(Ag)
use work

real Ag(n,n)

ag(1,1) =1
ag(1,2) =-sqrt(2.)/2
ag(1,3)=0

ag(2,1) =ag(1,2)
ag(2,2) =1.5
ag(2,3) =-2/sqrt(5.)

ag(3,1) =0
ag(3,2) =ag(2,3)
ag(3,3) =2.4
end
