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

      COMMON/ANNTCU/temuptann
       REAL*4 temuptann