cfile='xyaver_coarsegrain_50.sav'
iread=0
m=170
n=20
n=86
;n=45
Bmax=1000.
ivar=-3