home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / MATOPS.ZIP / GMADD.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  43 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE GMADD
  5. C
  6. C        PURPOSE
  7. C           ADD TWO GENERAL MATRICES TO FORM RESULTANT GENERAL MATRIX
  8. C
  9. C        USAGE
  10. C           CALL GMADD(A,B,R,N,M)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           A - NAME OF FIRST INPUT MATRIX
  14. C           B - NAME OF SECOND INPUT MATRIX
  15. C           R - NAME OF OUTPUT MATRIX
  16. C           N - NUMBER OF ROWS IN A,B,R
  17. C           M - NUMBER OF COLUMNS IN A,B,R
  18. C
  19. C        REMARKS
  20. C           ALL MATRICES MUST BE STORED AS GENERAL MATRICES
  21. C
  22. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  23. C           NONE
  24. C
  25. C        METHOD
  26. C           ADDITION IS PERFORMED ELEMENT BY ELEMENT
  27. C
  28. C     ..................................................................
  29. C
  30.       SUBROUTINE GMADD(A,B,R,N,M)
  31.       DIMENSION A(1),B(1),R(1)
  32. C
  33. C        CALCULATE NUMBER OF ELEMENTS
  34. C
  35.       NM=N*M
  36. C
  37. C        ADD MATRICES
  38. C
  39.       DO 10 I=1,NM
  40.    10 R(I)=A(I)+B(I)
  41.       RETURN
  42.       END
  43.