program makegriddef
        dimension kgdsin(20)
        kgdsin(1)=5
        kgdsin(2)=361
        kgdsin(3)=270
        kgdsin(4)=-5396
        kgdsin(5)=212950
        kgdsin(6)=8
        kgdsin(7)=249000
        kgdsin(8)=45633
        kgdsin(9)=45633
        kgdsin(10)=0
        kgdsin(11)=64
        kgdsin(12)=0
        kgdsin(13)=0
        kgdsin(20)=255
        write(51)kgdsin(1)
        write(51)kgdsin(2)
        write(51)kgdsin(3)
        write(51)kgdsin(4)
        write(51)kgdsin(5)
        write(51)kgdsin(6)
        write(51)kgdsin(7)
        write(51)kgdsin(8)
        write(51)kgdsin(9)
        write(51)kgdsin(10)
        write(51)kgdsin(11)
        write(51)kgdsin(12)
        write(51)kgdsin(13)
        write(51)kgdsin(20)
        stop
        end