REFMOC(CLIPNAME) - TESTMOC(CLIPNAME)
      D(CLIPNAME) = ------------------------------------
                                               0.5
                        0.1 + REFMOC(CLIPNAME)