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