gpamela/gcdes/gcscal.inc

*
* $Id$
*
* $Log$
*
*
* gcscal.inc
*
#if defined(GPAMELA_TYPE)
#include "gtscal.inc"
#endif
      PARAMETER(MXSLNK=100)
      COMMON/GCSCAL/ ISLINK(MXSLNK)
      EQUIVALENCE (LSLAST,ISLINK(MXSLNK))
      EQUIVALENCE (LSCAN ,ISLINK(1)),(LSTEMP,ISLINK(2))
      EQUIVALENCE (LSPARA,ISLINK(3)),(LSERAY,ISLINK(4))
*
*
* gcscal.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcscal
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcscal.inc
8			*
9			#if defined(GPAMELA_TYPE)
10			#include "gtscal.inc"
11			#endif
12			PARAMETER(MXSLNK=100)
13			COMMON/GCSCAL/ ISLINK(MXSLNK)
14			EQUIVALENCE (LSLAST,ISLINK(MXSLNK))
15			EQUIVALENCE (LSCAN ,ISLINK(1)),(LSTEMP,ISLINK(2))
16			EQUIVALENCE (LSPARA,ISLINK(3)),(LSERAY,ISLINK(4))
17			*
18			*
19			* gcscal.inc
20			*
21			#if defined(GPAMELA_INCLUDE)
22			*
23			#include "incbeg.inc"
24			+ gcscal
25			#include "incend.inc"
26			#endif