Function made to create a nordic file from an EVENT structure that
may contain several events

Input:
EVENT: event structure (structure)
sfile_name: name of output nordic file (string)

Example:
event2nor(EVENT,’test.sfile’)