Set MaxMeshNumber 1
Set MaxEnergyEvaluations 10000
Magnetite 20 C
cubic anisotropy

Readmesh 1 sphere90nm_x1.pat 
Energylog sphere90nm_x1e

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

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

