! copyright (c) 2008 Swedish Defence Research Agency (FOI) 
! may not be copied or distributed without written permission from FOI



      MODULE GRLOCALa

      IMPLICIT NONE

      INTEGER IGRENTRY
      REAL*8,     DIMENSION(:), ALLOCATABLE :: TLNB
      COMPLEX*16, DIMENSION(:), ALLOCATABLE :: YTB1,YTB2,YTB3,YTB4,YTB6, 
     & YTB1K,YTB2K,YTB3K,YTB4K,YTB6K, YTB1L,YTB2L,YTB3L,YTB4L,YTB6L, 
     & YTB1M,YTB2M,YTB3M,YTB4M,YTB6M, YTB1N,YTB2N,YTB3N,YTB4N,YTB6N
      LOGICAL,    DIMENSION(:), ALLOCATABLE :: EXPTYP_GR
      REAL*8,     DIMENSION(:), ALLOCATABLE :: TLNREF_GR,E2T_GR
      COMPLEX*16, DIMENSION(:), ALLOCATABLE :: CP_GR,CQ_GR, STP_GR,STQ_GR, SDP_GR,SDQ_GR, 
     & URA_GR,URB_GR, 
     & CPX_GR                                       ! cpx for Airy
      COMPLEX*16, DIMENSION(:), ALLOCATABLE :: CFAKT_GR, BCFAKT_GR, BCFAKTINV_GR, 
     & YA_GR, YB_GR
ccc	EQUIVALENCE (CQ_GR,CFAKT_GR), 
ccc     &	(STQ_GR,BCFAKT_GR), (SDQ_GR,BCFAKTINV_GR), 
ccc     &	(URA_GR,YA_GR), (URB_GR,YB_GR)

      SAVE

      END MODULE GRLOCALa
