       integer nbr1,nbr2,xy1,xy2,nbg
       parameter(nbr1= 4096,nbr2= 16384,xy1= 64,xy2= 128,nbg= 2)
