5 * Revision 1.1.1.1 1995/10/24 10:19:45 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.32 by S.Giani
12 SUBROUTINE CGSUB(A,B,NMAX,C)
13 ************************************************************************
16 * Author: E. Chernyaev Date: 05.04.89 *
19 * Function: Subrtarc one CG-objects from another *
21 * References: CGBOOL *
23 * Input: A(*) - 1-st CG-object *
24 * B(*) - 2-nd CG-object *
25 * NMAX - max length C array *
27 * Output: C(*) - resulting CG-object *
31 ************************************************************************
34 CALL CGBOOL(1,0,A,B,NMAX,C)