Set MaxMeshNumber 1
Set MaxEnergyEvaluations 10000
Magnetite 20 C
cubic anisotropy

Readmesh 1 sphere90nm_x1.pat 
Energylog sphere90nm_x1d

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 brick725x1d
	WriteMagnetization sphere90nm_x1d$field$
EndLoop 

