program readgriddef
        integer kgdsin(20)
        read(15)kgdsin(1)
        read(15)kgdsin(2)
        read(15)kgdsin(3)
        read(15)kgdsin(4)
        read(15)kgdsin(5)
        read(15)kgdsin(6)
        read(15)kgdsin(7)
        read(15)kgdsin(8)
        read(15)kgdsin(9)
        read(15)kgdsin(10)
        read(15)kgdsin(11)
        read(15)kgdsin(12)
        read(15)kgdsin(13)
        read(15)kgdsin(20)
        print *,kgdsin
        stop
        end