home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / ssp / matops / scla.for < prev    next >
Encoding:
Text File  |  1985-11-29  |  1.1 KB  |  46 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE SCLA
  5. C
  6. C        PURPOSE
  7. C           SET EACH ELEMENT OF A MATRIX EQUAL TO A GIVEN SCALAR
  8. C
  9. C        USAGE
  10. C           CALL SCLA (A,C,N,M,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 IN MATRIX A
  16. C           M - NUMBER OF COLUMNS IN MATRIX A
  17. C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A
  18. C                  0 - GENERAL
  19. C                  1 - SYMMETRIC
  20. C                  2 - DIAGONAL
  21. C
  22. C        REMARKS
  23. C           NONE
  24. C
  25. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  26. C           LOC
  27. C
  28. C        METHOD
  29. C           EACH ELEMENT OF MATRIX A IS REPLACED BY SCALAR C
  30. C
  31. C     ..................................................................
  32. C
  33.       SUBROUTINE SCLA(A,C,N,M,MS)
  34.       DIMENSION A(1)
  35. C
  36. C        COMPUTE VECTOR LENGTH, IT
  37. C
  38.       CALL LOC(N,M,IT,N,M,MS)
  39. C
  40. C        REPLACE BY SCALAR
  41. C
  42.       DO 1 I=1,IT
  43.     1 A(I)=C
  44.       RETURN
  45.       END
  46.