SUBROUTINE SMPY ( A, C, R, N, M, MS )
Argument Definitions (+ indicates altered content)
DOUBLE PRECISION   A(*),       C,         +R(*)
INTEGER            M,          MS,         N
Source file:smpy.f
Intrinsic Functions Called
SUBROUTINE         LOC
External Functions and Subroutines Called
SUBROUTINE         LOC
Local Variables (+ indicates altered content)
INTEGER           +I,          IT