*$ CREATE SOURCM.ADD
*COPY SOURCM
*
*=== Sourcm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1996-2005      by          Alfredo Ferrari         *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     SOURCe CoMmon:                                                   *
*                                                                      *
*     version       march 1996     by   Alfredo Ferrari, INFN - Milan  *
*                                                                      *
*     Last change on 15-may-05     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following subroutines or functions:              *
*                                                                      *
*            BDNOPT                                                    *
*            BEACRD                                                    *
*            EVTDAT                                                    *
*            FEEDER                                                    *
*            FLKEND                                                    *
*            MGDRAW                                                    *
*            SOURCE                                                    *
*                                                                      *
*      Whasou(1-18) = user variables                                   *
*            Tkesum = total kinetic energy of the primaries of the     *
*                     user written source                              *
*            Lussrc = flag to inform that the user written source was  *
*                     used                                             *
*            Sdusou = user character variable                          *
*            Lsouit = source is called iteratively until it is .true.  *
*                                                                      *
*----------------------------------------------------------------------*
*
      LOGICAL LUSSRC, LSOUIT
      CHARACTER SDUSOU*8
      COMMON / SOURCM / WHASOU (18), TKESUM, LUSSRC, LSOUIT
      COMMON / CHSOCM / SDUSOU
      SAVE / SOURCM /
      SAVE / CHSOCM /