*KEEP,CRANDM.
      DOUBLE PRECISION RANDC