include 'COMMON.MCM'
c include 'COMMON.MAP'
include 'COMMON.HEADER'
-c include 'COMMON.CSA'
+ include 'COMMON.CSA'
include 'COMMON.CHAIN'
c include 'COMMON.MUCA'
c include 'COMMON.MD'
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
+ external random_init
nglob_csa=0
eglob_csa=1d99