nJntMaxForce[l_nIndex]
        nJntMaxForce[l_nIndex]=abs(nJntForce[l_nIndex])
      endIf
    endFor
    delay(0)
  endWhile
end]]>