SUBROUTINE PERTURB(MR,Q,FACT)
      DIMENSION Q(MR)
      DO IL=1,MR
        Q(IL)=FACT*Q(IL)
      ENDDO
      RETURN
      END