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	*
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