integer imax,jmax,lmax,nid
      INTEGER dim_coord(4)
      real iotd_ts

      common/ecritd_c/imax,jmax,lmax,nid,dim_coord,iotd_ts