c meter.inc
      COMMON /METER/
     $     PHI(NKP1),
*     $     X2(NIP1,NJP1),Y2(NIP1,NJP1),PHI(NKP1),
     $     COSPHI(NKP1),SINPHI(NKP1),CPHIqM(NK),SPHIqM(NK),DARC(NK),
     $     COSARC(NK),
     $      NRINGS,NAVER(500), axfix