common/ocarbupt/OCUPT,co24ocnan(jm0),ncallatm
      common/anntcu/TEMUPTANN
c     common/ocarbupt/OCUPT,TEMUPTANN