1       INTEGER, PARAMETER :: MAXJ = 4*(MXQN - 1) + 2
2       INTEGER :: JMAX0
3       REAL(KIND=8) :: WVAL
4       REAL(KIND=8) :: FJW(0:MAXJ), TABFJW(121*(MAXJ+7))
5       COMMON /GAMCOM/ WVAL, FJW, TABFJW, JMAX0
6