*
* $Id: gpuini.F,v 3.2 2005/12/05 12:15:20 pam-ba Exp $
*
* $Log: gpuini.F,v $
* Revision 3.2  2005/12/05 12:15:20  pam-ba
* new spectrometer geometry and internal magnetic field
*
* Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
* First GPAMELA release on CVS
*
*
*CMZ :  3.00/00 21/01/2002  16.36.33  by  Marialuigia Ambriola
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.01/00 30/04/96  18.28.33  by  Francesco Cafagna
*CMZ :  1.00/03 29/04/96  16.35.14  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   29/04/96
      SUBROUTINE GPUINI
************************************************************************
*                                                                      *
* User action in UGINIT                                                *
*                                                                      *
* Called by: UGINIT                                                    *
* Author: Francesco Cafagna, 29/04/96 16.27.48                         *
*                                                                      *
************************************************************************
#include "gpunit.inc"
C      INTEGER IPART,IMATE,NPOINT
C      REAL STEP
C      IPART = 3
C      IMATE = 22
C      STEP = .4
C      NPOINT = 90
C      CALL GDRPRT (IPART,IMATE,STEP,NPOINT)
*ML 13/03/2001 MI FACCIO STAMPARE I MATERIALI:
C     CALL GPMATE(0)
*END ML.
C
C Close magnetic field map
C
      CLOSE (LUFMAP1)
      CLOSE (LUFMAP2)
      CLOSE (LUFMAP3)
C
C Close SPE HIT RESOLUTION HISTO FILE
C      
      CLOSE (LURSPE)
      RETURN
      END
