divide = FIND_GCD_N( nnx, k )

        W2_mapIO = divide*tNx

     &                              ' (=', divide, '*sNx)'

      INTEGER mnFld, divide

        divide = 1

            divide = divide*ii

          fldList(j) = fldList(j)*divide

        divide = MAX( 0, mnFld )

      FIND_GCD_N = divide

      INTEGER divide, nnx(W2_maxNbFacets)