This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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