include file: box.size 21
c chose one:
	PARAMETER(In=181,Jn=181,kn=91,im=In-1,Jm=Jn-1,km=kn-1)
c	PARAMETER(In=91,Jn=91,kn=46,im=In-1,Jm=Jn-1,km=kn-1)