fcthreadmm = fcthreadmm + fctilemm
_GLOBAL_SUM_R8( fcthreadmm , myThid )
& fcthreadmm
& ' ( ) = ',fcthreadmm
fcthreadmm = 0. _d 0
_RL fcthreadmm