COMMON/OCARBUPT/ocupt,co24ocnan,ncallatm
       REAL*4 ocupt
       REAL*4 co24ocnan(jm0)
       REAL*4 ncallatm

      COMMON/ANNTCU/temuptann
       REAL*4 temuptann