      SUBROUTINE ioRDER (K,M)
      IF (K .GT. M) go to 15
      I = M
      M = K
      K = I
      STOP
  15  END

      IK = 3
      IM = 5
      CALL ioRDER (IK, IM)
      STOP
      END
