GEANT321/cgpack/cgsphe.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:44  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 CGSPHE(R,KA,KB,LCG,CG)
  13 ************************************************************************
  14 *                                                                      *
  15 *     Name: CGSPHE                                                     *
  16 *     Author: E. Chernyaev                       Date:    24.01.89     *
  17 *                                                Revised:              *
  18 *                                                                      *
  19 *     Function: Create CG-object for SPHERE (BALL)                     *
  20 *                                                                      *
  21 *     References: CGELLI                                               *
  22 *                                                                      *
  23 *     Input:  R  - sphere radius                                       *
  24 *             KA - number of latitude step                             *
  25 *             KB - number of longitude step                            *
  26 *            LCG - max-size of CG-object                               *
  27 *                                                                      *
  28 *     Output: CG - CG-object                                           *
  29 *                  CG(1) - length of CG-object                         *
  30 *                        = 0 if error in parameters                    *
  31 *                        < 0 if no space                               *
  32 *                                                                      *
  33 *     Errors: none                                                     *
  34 *                                                                      *
  35 ************************************************************************
  36       REAL      CG(*)
  37 *-
  38       CALL CGELLI(R,R,R,KA,KB,LCG,CG)
  39       RETURN
  40       END