home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / MATOPS.ZIP / GMTRA.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  42 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE GMTRA
  5. C
  6. C        PURPOSE
  7. C           TRANSPOSE A GENERAL MATRIX
  8. C
  9. C        USAGE
  10. C           CALL GMTRA(A,R,N,M)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           A - NAME OF MATRIX TO BE TRANSPOSED
  14. C           R - NAME OF RESULTANT MATRIX
  15. C           N - NUMBER OF ROWS OF A AND COLUMNS OF R
  16. C           M - NUMBER OF COLUMNS OF A AND ROWS OF R
  17. C
  18. C        REMARKS
  19. C           MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A
  20. C           MATRICES A AND R 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           TRANSPOSE N BY M MATRIX A TO FORM M BY N MATRIX R
  27. C
  28. C     ..................................................................
  29. C
  30.       SUBROUTINE GMTRA(A,R,N,M)
  31.       DIMENSION A(1),R(1)
  32. C
  33.       IR=0
  34.       DO 10 I=1,N
  35.       IJ=I-N
  36.       DO 10 J=1,M
  37.       IJ=IJ+N
  38.       IR=IR+1
  39.    10 R(IR)=A(IJ)
  40.       RETURN
  41.       END
  42.