Magnetite 20 C 
Set MaxMeshNumber 1

ReadMesh 1 2Sphere_100nm_SV.pat

SetSubDomain 2 Ms  0.0
SetSubDomain 2 K1  0.0
SetSubDomain 2 Aex  0.0

randomize all moments

External Field Direction 1. 1.01 1.01 
External Field Strength 0 mT 

ZoneName  Zone 1 Magnetite Zone 2= non magnetic

Energylog 2sphere_SV 

Minimize
writemagnetization  2sphere_SV
writedemag 2sphere_SV
writehyst 2sphere_SV

end
