C      Program Check



       implicit double precision(a-h,o-z)

       implicit integer*4 (i-n)

       parameter (nparam=100,max_nn=24,max_type=4,max_orb=9,

     &             max_sh=30,max_atom=10,npexact=13)



       common/in/li,lj,loi,loj

       common/gd/kshells

       common/upart/U(10,10,max_type),indatom(2*npexact),correl(4)

       dimension tab(10,10,10,10),tabJ(5,5),tabK(5,5),ltb(5)

       dimension dircos(3),coord(nparam,3)

       dimension itype(nparam),nn(nparam,max_nn),noofnn(max_type)

       complex*16  HF(2*npexact,2*npexact),H0(2*npexact,2*npexact),

     &             wk(400000),HU( 2*npexact)

       double precision Xn(2*npexact),Xnnew(2*npexact)

     &           ,Xnold(2*npexact)

     &           ,Xn2old(2*npexact,2*npexact)

     &           ,Xn2(2*npexact,2*npexact)

     &           ,Xn2new(2*npexact,2*npexact)



C-Open Files



c       open (unit=500,file='diaU.out',status='unknown')

       open (unit=1253,form='formatted',access='sequential',

     &       status='unknown')

       open (unit=1254,form='formatted',access='sequential',

     &       status='unknown')

       open (unit=1255,form='formatted',access='sequential',

     &       status='unknown')

       open (unit=1256,form='formatted',access='sequential',

     &       status='unknown')

       open (unit=4020,form='formatted',access='sequential',

     &       status='unknown')

       open (unit=4021,form='formatted',access='sequential',

     &       status='unknown')

       open (unit=4025,form='formatted',access='sequential',

     &       status='unknown')





        stop

        end