This routine generates a gaussian function centered at 1000 with a sigma of
100. Each word which would otherwise be read from CAMAC will instead be
generated by susgen independently of the event length, . This
routine resides in the user directory and can be modified to match user
specifications. It is primarly used to debug the test package.
call susgen (h)