!
      integer :: iuamie,iamie,iuts1,iuts2,nspsec,ntims,ntst
      common/amie_int/IAMIE,iuamie,IUTS1,IUTS2,NSPSEC,NTIMS,NTST
!
      real :: sectgcm,crad,phida,secuta,hpsha,hpnha,cpsha,cpnha,
     |  cuspsta,cuspnta,cuspsla,cuspnla,potkva1,vixyza1,ekeva1,
     |  eflxa1,potkva2,vixyza2,ekeva2,eflxa2
      common/amie_real/ SECTGCM,CRAD(2),PHIDA(2),SECUTA(2),HPSHA(2),
     |  HPNHA(2),CPSHA(2),CPNHA(2),CUSPSTA(2),CUSPNTA(2),CUSPSLA(2),
     |  CUSPNLA(2),POTKVA1(73,36),VIXYZA1(73,36,3),EKEVA1(73,36),
     |  EFLXA1(73,36),POTKVA2(73,36),VIXYZA2(73,36,3),EKEVA2(73,36),
     |  EFLXA2(73,36)