INTEGER mcRadCor, + mcRadCor_9999 INTEGER mcRadCor_ID CHARACTER*4 mcRadCor_cType REAL mcRadCor_XTrue, + mcRadCor_YTrue, + mcRadCor_NuTrue, + mcRadCor_Q2True, + mcRadCor_W2True, + mcRadCor_ThetaBrems, + mcRadCor_PhiBrems, + mcRadCor_SigRad, + mcRadCor_SigCor, + mcRadCor_SigCorErr, + mcRadCor_TailIne, + mcRadCor_TailEla, + mcRadCor_TailCoh, + mcRadCor_Vacuum, + mcRadCor_Vertex, + mcRadCor_Small, + mcRadCor_RedFac, + mcRadCor_EBrems COMMON /mcRadCor/ mcRadCor, + mcRadCor_ID, + mcRadCor_cType, + mcRadCor_XTrue, + mcRadCor_YTrue, + mcRadCor_NuTrue, + mcRadCor_Q2True, + mcRadCor_W2True, + mcRadCor_ThetaBrems, + mcRadCor_PhiBrems, + mcRadCor_SigRad, + mcRadCor_SigCor, + mcRadCor_SigCorErr, + mcRadCor_TailIne, + mcRadCor_TailEla, + mcRadCor_TailCoh, + mcRadCor_Vacuum, + mcRadCor_Vertex, + mcRadCor_Small, + mcRadCor_RedFac, + mcRadCor_EBrems, + mcRadCor_9999