home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / ssp / matops / rint.for < prev    next >
Encoding:
Text File  |  1985-11-29  |  1.1 KB  |  50 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE RINT
  5. C
  6. C        PURPOSE
  7. C           INTERCHANGE TWO ROWS OF A MATRIX
  8. C
  9. C        USAGE
  10. C           CALL RINT(A,N,M,LA,LB)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           A  - NAME OF MATRIX
  14. C           N  - NUMBER OF ROWS IN A
  15. C           M  - NUMBER OF COLUMNS IN A
  16. C           LA - ROW TO BE INTERCHANGED WITH ROW LB
  17. C           LB - ROW TO BE INTERCHANGED WITH ROW LA
  18. C
  19. C        REMARKS
  20. C           MATRIX A MUST BE A GENERAL MATRIX
  21. C
  22. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  23. C           NONE
  24. C
  25. C        METHOD
  26. C           EACH ELEMENT OF ROW LA IS INTERCHANGED WITH CORRESPONDING
  27. C           ELEMENT OF ROW LB
  28. C
  29. C     ..................................................................
  30. C
  31.       SUBROUTINE RINT(A,N,M,LA,LB)
  32.       DIMENSION A(1)
  33. C
  34.       LAJ=LA-N
  35.       LBJ=LB-N
  36.       DO 3 J=1,M
  37. C
  38. C        LOCATE ELEMENTS IN BOTH ROWS
  39. C
  40.       LAJ=LAJ+N
  41.       LBJ=LBJ+N
  42. C
  43. C        INTERCHANGE ELEMENTS
  44. C
  45.       SAVE=A(LAJ)
  46.       A(LAJ)=A(LBJ)
  47.     3 A(LBJ)=SAVE
  48.       RETURN
  49.       END
  50.