Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / cgpack / cgsphe.F
CommitLineData
fe4da5cc 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