home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / MATSTOR.ZIP / RCPY.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  56 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE RCPY
  5. C
  6. C        PURPOSE
  7. C           COPY SPECIFIED ROW OF A MATRIX INTO A VECTOR
  8. C
  9. C        USAGE
  10. C           CALL RCPY (A,L,R,N,M,MS)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           A - NAME OF INPUT MATRIX
  14. C           L - ROW OF A TO BE MOVED TO R
  15. C           R - NAME OF OUTPUT VECTOR OF LENGTH M
  16. C           N - NUMBER OR ROWS IN A
  17. C           M - NUMBER OF COLUMNS IN A
  18. C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A
  19. C                  0 - GENERAL
  20. C                  1 - SYMMETRIC
  21. C                  2 - DIAGONAL
  22. C
  23. C        REMARKS
  24. C           NONE
  25. C
  26. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  27. C           LOC
  28. C
  29. C        METHOD
  30. C           ELEMENTS OF ROW L ARE MOVED TO CORRESPONDING POSITIONS
  31. C           OF VECTOR R
  32. C
  33. C     ..................................................................
  34. C
  35.       SUBROUTINE RCPY(A,L,R,N,M,MS)
  36.       DIMENSION A(1),R(1)
  37. C
  38.       DO 3 J=1,M
  39. C
  40. C        LOCATE ELEMENT FOR ANY MATRIX STORAGE MODE
  41. C
  42.       CALL LOC(L,J,LJ,N,M,MS)
  43. C
  44. C        TEST FOR ZERO ELEMENT IN DIAGONAL MATRIX
  45. C
  46.       IF(LJ) 1,2,1
  47. C
  48. C        MOVE ELEMENT TO R
  49. C
  50.     1 R(J)=A(LJ)
  51.       GO TO 3
  52.     2 R(J)=0.0
  53.     3 CONTINUE
  54.       RETURN
  55.       END
  56.