GEANT321/gdraw/gdcger.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:20  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
  11 *-- Author :
  12 *
  13       SUBROUTINE GDCGER(CGERR)
  14 C.
  15 C.    ******************************************************************
  16 C.    *                                                                *
  17 C.    *    This subroutine returns Error Message in the CG-Object      *
  18 C.    *    according to the value of CGERR.                            *
  19 C.    *                                                                *
  20 C.    *    Input Parameter:                                            *
  21 C.    *                                                                *
  22 C.    *        CGERR:  First word of the CG array                      *
  23 C.    *                                                                *
  24 C.    *                                                                *
  25 C.    *    ==>Called by :   GDCGCL,GDCGOB                              *
  26 C.    *                                                                *
  27 C.    *       Author : J. Salt   **********                            *
  28 C.    *                                                                *
  29 C.    ******************************************************************
  30 C.
  31 #include "geant321/gcunit.inc"
  32 #include "geant321/gcgobj.inc"
  33 *
  34       IF(CGERR.LT.-0.0001)THEN
  35          KCGST=-2
  36          WRITE(CHMAIL,10000)
  37       ELSE
  38          KCGST=-3
  39          WRITE(CHMAIL,10100)
  40       ENDIF
  41       CALL GMAIL(0,0)
  42 *
  43 10000 FORMAT(' Error in CG, Lack of Memory  ')
  44 10100 FORMAT(' Error in CG, Wrong Shape Parameters  ')
  45 *
  46       END
  47