REAL :: cputimearray(10)
  COMMON /cputime3dvar/ cputimearray