GEANT321/geocad/gstmat.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:47  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 GSTMAT(FNAME)
  13 *
  14 * *** Opens a material list file for CADD output
  15 *
  16 #include "geant321/gcsetf.inc"
  17 *
  18 * *** name of the SET-file:
  19       CHARACTER*24    FNAME
  20 * *** name of the MAT-file:
  21       CHARACTER*80    FNAMEM
  22 *
  23 * *** Append filename FNAME to FNAMEM with extension .mat:
  24       IF(INDEX(FNAME,'.').EQ.0) THEN
  25          IT=LNBLNK(FNAME)
  26       ELSE
  27          IT=INDEX(FNAME,'.')-1
  28       ENDIF
  29 #if !defined(CERNLIB_IBM)
  30       FNAMEM=FNAME(1:IT)//'.mat'
  31 #endif
  32 #if defined(CERNLIB_IBM)
  33       FNAMEM='/'//FNAME(1:MIN(IT,8))//' MAT A1'
  34       CALL CLTOU(FNAMEM)
  35 #endif
  36 *
  37 * *** Open material file:
  38       OPEN  (UNIT=NUNIT2, FILE=FNAMEM, STATUS='UNKNOWN', ERR=10 )
  39 *
  40       WRITE (NUNIT2,*)'GEANT-SET MATERIAL LISTING FILE'
  41       WRITE (NUNIT2,*)'--------------------------------'
  42       WRITE (NUNIT2,*)
  43       WRITE (NUNIT2,*)'Materials in the geometry described in'
  44       WRITE (NUNIT2,*)'the .SET file:  ',FNAME
  45       WRITE (NUNIT2,*)
  46       WRITE (NUNIT2,10000)
  47       WRITE (NUNIT2,*)
  48       RETURN
  49 *
  50    10 WRITE(*,*)'Error opening the .mat file for materials'
  51       WRITE(*,*)'Check use of logical units.'
  52 *
  53 10000 FORMAT('Volume name    ','Tracking media ',9X
  54      + ,'Material  ',14X,'Density  ')
  55 *
  56       END