This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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