MyDetector2Level2/src/mydeccom.for

*****************************************************************************
      INTEGER FUNCTION MYDECCOM()
c
      IMPLICIT NONE
C
      INCLUDE 'COMMON.TXT'
C
C Begin !
C
      MYDECCOM = 0
C
C     CALCULATE COMMON VARIABLES
C
      MYVAR1 = 1
      MYVAR2 = 2
      MYVAR3 = 3.
      
      RETURN
      END


1	*****************************************************************************
2	INTEGER FUNCTION MYDECCOM()
3	c
4	IMPLICIT NONE
5	C
6	INCLUDE 'COMMON.TXT'
7	C
8	C Begin !
9	C
10	MYDECCOM = 0
11	C
12	C CALCULATE COMMON VARIABLES
13	C
14	MYVAR1 = 1
15	MYVAR2 = 2
16	MYVAR3 = 3.
17
18	RETURN
19	END
20
21