Set MaxMeshNumber 1
Set MaxEnergyEvaluations 10000
Magnetite 20 C
cubic anisotropy

Readmesh 1 Tauxe20nmb.pat 
Energylog Tauxe20nmb_a

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

Loop field -300 300 5
	Randomize Magnetization 1
	External Field Strength %field mT
	Minimize
	WriteHyst Tauxe20nmb_a 	
	WriteMagnetization Tauxe20nmb_a$field$
EndLoop 


