home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / MATOPS.ZIP / SMPY.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  48 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE SMPY
  5. C
  6. C        PURPOSE
  7. C           MULTIPLY EACH ELEMENT OF A MATRIX BY A SCALAR TO FORM A
  8. C           RESULTANT MATRIX
  9. C
  10. C        USAGE
  11. C           CALL SMPY(A,C,R,N,M,MS)
  12. C
  13. C        DESCRIPTION OF PARAMETERS
  14. C           A - NAME OF INPUT MATRIX
  15. C           C - SCALAR
  16. C           R - NAME OF OUTPUT MATRIX
  17. C           N - NUMBER OF ROWS IN MATRIX A AND R
  18. C           M - NUMBER OF COLUMNS IN MATRIX A AND R
  19. C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A (AND R)
  20. C                  0 - GENERAL
  21. C                  1 - SYMMETRIC
  22. C                  2 - DIAGONAL
  23. C
  24. C        REMARKS
  25. C           NONE
  26. C
  27. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  28. C           LOC
  29. C
  30. C        METHOD
  31. C           SCALAR IS MULTIPLIED BY EACH ELEMENT OF MATRIX
  32. C
  33. C     ..................................................................
  34. C
  35.       SUBROUTINE SMPY(A,C,R,N,M,MS)
  36.       DIMENSION A(1),R(1)
  37. C
  38. C        COMPUTE VECTOR LENGTH, IT
  39. C
  40.       CALL LOC(N,M,IT,N,M,MS)
  41. C
  42. C        MULTIPLY BY SCALAR
  43. C
  44.       DO 1 I=1,IT
  45.     1 R(I)=A(I)*C
  46.       RETURN
  47.       END
  48.