logical computemp
      common/ggZZcomputemp/computemp