Added file InitFlux: functions for reading flux in SNG format.
For usage example see testflux.for
small clean-up