home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / MATOPS.ZIP / CINT.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  49 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE CINT
  5. C
  6. C        PURPOSE
  7. C           INTERCHANGE TWO COLUMNS OF A MATRIX
  8. C
  9. C        USAGE
  10. C           CALL CINT(A,N,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           LA - COLUMN TO BE INTERCHANGED WITH COLUMN LB
  16. C           LB - COLUMN TO BE INTERCHANGED WITH COLUMN LA
  17. C
  18. C        REMARKS
  19. C           MATRIX A MUST BE A GENERAL MATRIX
  20. C
  21. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  22. C           NONE
  23. C
  24. C        METHOD
  25. C           EACH ELEMENT OF COLUMN LA IS INTERCHANGED WITH CORRESPONDING
  26. C           ELEMENT OF COLUMN LB
  27. C
  28. C     ..................................................................
  29. C
  30.       SUBROUTINE CINT(A,N,LA,LB)
  31.       DIMENSION A(1)
  32. C
  33. C        LOCATE STARTING POINT OF BOTH COLUMNS
  34. C
  35.       ILA=N*(LA-1)
  36.       ILB=N*(LB-1)
  37. C
  38.       DO 3 I=1,N
  39.       ILA=ILA+1
  40.       ILB=ILB+1
  41. C
  42. C        INTERCHANGE ELEMENTS
  43. C
  44.       SAVE=A(ILA)
  45.       A(ILA)=A(ILB)
  46.     3 A(ILB)=SAVE
  47.       RETURN
  48.       END
  49.