Added gblevents.f from ssprev of paqc (need to resolve redundancy 
at somepoint)
