SUBROUTINE USCAL2(NA,NB,X,A,LDA)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION A(LDA,NB)
      XX=X
      DO 10 IA=1,NA
      DO 10 IB=1,NB
   10 A(IA,IB)=XX*A(IA,IB)
      RETURN
      END