Set MaxMeshNumber 1
Set MaxEnergyEvaluations 10000
Magnetite 20 C
cubic anisotropy

Readmesh 1 brick725x1.pat 
EnergyLog brick725x1d
External Field Strength 0.0 mT
External Field Direction 1.0 1.01 1.01

randomize all moments

loop field -200 200 5
	External Field Strength %field mT
	Minimize
	WriteHyst brick725x1d
	WriteMagnetization brick725x1d$field$
EndLoop 


