!-----------------------------------------------------------------------
      real(4),pointer::t0(:,:,:),q0(:,:,:),p0(:,:)
      COMMON/TEMPV/T0,Q0,P0
!-----------------------------------------------------------------------