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