home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / MATOPS.ZIP / RADD.FOR < prev    next >
Text File  |  1985-11-29  |  2KB  |  60 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE RADD
  5. C
  6. C        PURPOSE
  7. C           ADD ROW OF ONE MATRIX TO ROW OF ANOTHER MATRIX
  8. C
  9. C        USAGE
  10. C           CALL RADD(A,IRA,R,IRR,N,M,MS,L)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           A   - NAME OF INPUT MATRIX
  14. C           IRA - ROW IN MATRIX A TO BE ADDED TO ROW IRR OF MATRIX R
  15. C           R   - NAME OF OUTPUT MATRIX
  16. C           IRR - ROW IN MATRIX R WHERE SUMMATION IS DEVELOPED
  17. C           N   - NUMBER OF ROWS IN A
  18. C           M   - NUMBER OF COLUMNS IN A AND R
  19. C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A
  20. C                  0 - GENERAL
  21. C                  1 - SYMMETRIC
  22. C                  2 - DIAGONAL
  23. C           L   - NUMBER OF ROWS IN R
  24. C
  25. C        REMARKS
  26. C           MATRIX R MUST BE A GENERAL MATRIX
  27. C           MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A UNLESS
  28. C           A IS GENERAL
  29. C
  30. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  31. C           LOC
  32. C
  33. C        METHOD
  34. C           EACH ELEMENT OF ROW IRA OF MATRIX A IS ADDED TO
  35. C           CORRESPONDING ELEMENT OF ROW IRR OF MATRIX R
  36. C
  37. C     ..................................................................
  38. C
  39.       SUBROUTINE RADD(A,IRA,R,IRR,N,M,MS,L)
  40.       DIMENSION A(1),R(1)
  41. C
  42.       IR=IRR-L
  43.       DO 2 J=1,M
  44.       IR=IR+L
  45. C
  46. C        LOCATE INPUT ELEMENT FOR ANY MATRIX STORAGE MODE
  47. C
  48.       CALL LOC(IRA,J,IA,N,M,MS)
  49. C
  50. C        TEST FOR ZERO ELEMENT IN DIAGONAL MATRIX
  51. C
  52.       IF(IA) 1,2,1
  53. C
  54. C        ADD ELEMENTS
  55. C
  56.     1 R(IR)=R(IR)+A(IA)
  57.     2 CONTINUE
  58.       RETURN
  59.       END
  60.