/* 
	Regression test for crash on shift after pbc change
*/

 setgridsize(128, 32, 1)
 setcellsize(500e-9/128, 125e-9/32, 3e-9)

 Msat = 800e3
 Aex = 13e-12
 m  = uniform(1, .1, 0)

 alpha = 3
 steps(10)

 shift(1)

 setpbc(1, 1, 0)

 //steps(10)
 shift(1)
