Set MaxMeshNumber 1
Set MaxEnergyEvaluations 10000
Magnetite 20 C
cubic anisotropy

Readmesh 1 brick725x1.pat 
Energylog brick725x1e

Randomize All Moments
External Field Direction 1 1.01 1.01 
External Field Strength 0 mT 

Loop field -200 200 5
	External Field Strength %field mT
	Minimize
	WriteHyst brick725x1e
	WriteMagnetization brick725x1e$field$
EndLoop 
