*ID ODC2BACK
*/
*/  Modset to reverse odc2f405 - for bit comparison
*/  purposes. odc2f405 is a bug fix so this mod
*/  is not intended to be used in scientific tests.
*/
*DECLARE BLOKINIT
*D ODC2F405.1
     &                   D1(joc_taux+(J_JMT-1)*IMT))
*D ODC2F405.2
     &                   D1(joc_tauy+(J_JMT-1)*IMT))
