GEANT321/geocad/gptset.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:46  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 GPTSET (IVOLNA, NUMB)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Routine to print tracking media data structure JTMED     *
  17 C.    *       NUMB     medium number                                   *
  18 C.    *                                                                *
  19 C.    *    ==>Called by : GDEXCA    PRINTS the media of the volumes    *
  20 C.    *       exported to SET in the material file .mat.               *
  21 C.    *       Author: Nils Hoimyr                                      *
  22 C.    *                                                                *
  23 C.    ******************************************************************
  24 C.
  25 #include "geant321/gcbank.inc"
  26 #include "geant321/gcsetf.inc"
  27 *
  28       CHARACTER CHVOLN*4, CHNATM*20, CHNAMA*20
  29 *
  30       IF (JTMED.LE.0) RETURN
  31       JTM = LQ(JTMED-NUMB)
  32       IF (JTM.NE.0) THEN
  33          CALL UHTOC(IVOLNA,4,CHVOLN,4)
  34          CALL UHTOC(IQ(JTM+1),4,CHNATM,20)
  35          IMAT = Q(JTM+6)
  36          JMA = LQ(JMATE-IMAT)
  37          CALL UHTOC(IQ(JMA+1),4,CHNAMA,20)
  38          DENS = Q(JMA+8)
  39          WRITE (NUNIT2,10000) CHVOLN,NUMB,CHNATM,IMAT,CHNAMA,DENS
  40       ENDIF
  41 *
  42 10000 FORMAT(1X,A4,6X,I6,1X,A20,I4,1X,A20,E15.8)
  43       END
  44