+ few addidtional changes:
SRCREC is now the switch to either read from .dat file =1 or use plane wave =2
reduced some arrays (currently unused) to variables