5 * Revision 1.1.1.1 1995/10/24 10:19:44 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.31 by S.Giani
12 SUBROUTINE CGHSHI(NSIZE,NFACE,NEDGE,IHIDE,IFACE,IPFACE)
13 ************************************************************************
16 * Author: E. Chernyaev Date: 07.08.88 *
19 * Function: Shift face array and set pointers to faces *
23 * Input : NSIZE - size of IHIDE array (in INTEGER*2 words) *
24 * Output: NFACE - number of faces before and after shift *
25 * NEDGE - number of edges before and after shift *
26 * IHIDE(*) - old face array *
27 * IFACE(*) - new face array *
28 * IPFACE(*) - pointers to faces beginings in IFACE *
32 ************************************************************************
34 INTEGER IHIDE(*),IFACE(*)
40 JHIDE = NSIZE - (NFACE+NEDGE*2) + 1
51 IF (N1 .EQ. N2) GOTO 100
57 IF (IE .EQ. 0) GOTO 200