trying to synch magnetic.cc with gepore.f
merging