      SUBROUTINE SMCOPY(N,A,B)
      REAL A(1),B(1)
      M=(N*(N+1))/2
      DO 10 K=1,M
   10 B(K)=A(K)
      RETURN
      END
