home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / MATOPS.ZIP / DCLA.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  46 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE DCLA
  5. C
  6. C        PURPOSE
  7. C           SET EACH DIAGONAL ELEMENT OF A MATRIX EQUAL TO A SCALAR
  8. C
  9. C        USAGE
  10. C           CALL DCLA (A,C,N,MS)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           A - NAME OF INPUT MATRIX
  14. C           C - SCALAR
  15. C           N - NUMBER OF ROWS AND COLUMNS IN MATRIX A
  16. C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A
  17. C                  0 - GENERAL
  18. C                  1 - SYMMETRIC
  19. C                  2 - DIAGONAL
  20. C
  21. C        REMARKS
  22. C           INPUT MATRIX MUST BE A SQUARE MATRIX
  23. C
  24. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  25. C           LOC
  26. C
  27. C        METHOD
  28. C           EACH ELEMENT ON DIAGONAL OF MATRIX IS REPLACED BY SCALAR C
  29. C
  30. C     ..................................................................
  31. C
  32.       SUBROUTINE DCLA(A,C,N,MS)
  33.       DIMENSION A(1)
  34. C
  35.       DO 3 I=1,N
  36. C
  37. C        LOCATE DIAGONAL ELEMENT FOR ANY MATRIX STORAGE MODE
  38. C
  39.       CALL LOC(I,I,ID,N,N,MS)
  40. C
  41. C        REPLACE DIAGONAL ELEMENTS
  42. C
  43.     3 A(ID)=C
  44.       RETURN
  45.       END
  46.