integer ncache,CachSrc(max_cache),isent(max_cache),
     & iused(max_cache)
      logical cache_update
      double precision ecache(max_cache),xcache(maxvar,max_cache)
      common /cache/ ecache,xcache,ncache,CachSrc,isent,iused,
     & cache_update