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	mocchiut	1.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