!
      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(zimxp1,zjmx),VIXYZA1(zimxp1,zjmx,3),
     |  EKEVA1(zimxp1,zjmx),EFLXA1(zimxp1,zjmx),POTKVA2(zimxp1,zjmx),
     |  VIXYZA2(zimxp1,zjmx,3),EKEVA2(zimxp1,zjmx),EFLXA2(zimxp1,zjmx)