GEANT321/cgpack/cgsub.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:45  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.32  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE CGSUB(A,B,NMAX,C)
  13 ************************************************************************
  14 *                                                                      *
  15 *     Name: CGSUB                                                      *
  16 *     Author: E. Chernyaev                       Date:    05.04.89     *
  17 *                                                Revised:              *
  18 *                                                                      *
  19 *     Function: Subrtarc one CG-objects from another                   *
  20 *                                                                      *
  21 *     References: CGBOOL                                               *
  22 *                                                                      *
  23 *     Input: A(*) - 1-st CG-object                                     *
  24 *            B(*) - 2-nd CG-object                                     *
  25 *            NMAX - max length C array                                 *
  26 *                                                                      *
  27 *     Output: C(*) - resulting CG-object                               *
  28 *                                                                      *
  29 *     Errors: none                                                     *
  30 *                                                                      *
  31 ************************************************************************
  32       REAL      A(*),B(*),C(*)
  33 *-
  34       CALL CGBOOL(1,0,A,B,NMAX,C)
  35       RETURN
  36       END