home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / ssp / matops / sdiv.for < prev    next >
Encoding:
Text File  |  1985-11-29  |  1.3 KB  |  51 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE SDIV
  5. C
  6. C        PURPOSE
  7. C           DIVIDE EACH ELEMENT OF A MATRIX BY A SCALAR TO FORM A
  8. C           RESULTANT MATRIX
  9. C
  10. C        USAGE
  11. C           CALL SDIV(A,C,R,N,M,MS)
  12. C
  13. C        DESCRIPTION OF PARAMETERS
  14. C           A - NAME OF INPUT MATRIX
  15. C           C - SCALAR
  16. C           R - NAME OF OUTPUT MATRIX
  17. C           N - NUMBER OF ROWS IN MATRIX A AND R
  18. C           M - NUMBER OF COLUMNS IN MATRIX A AND R
  19. C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A (AND R)
  20. C                  0 - GENERAL
  21. C                  1 - SYMMETRIC
  22. C                  2 - DIAGONAL
  23. C
  24. C        REMARKS
  25. C           IF SCALAR IS ZERO, DIVISION IS PERFORMED ONLY ONCE TO CAUSE
  26. C           FLOATING POINT OVERFLOW CONDITION
  27. C
  28. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  29. C           LOC
  30. C
  31. C        METHOD
  32. C           EACH ELEMENT OF MATRIX IS DIVIDED BY SCALAR
  33. C
  34. C     ..................................................................
  35. C
  36.       SUBROUTINE SDIV(A,C,R,N,M,MS)
  37.       DIMENSION A(1),R(1)
  38. C
  39. C        COMPUTE VECTOR LENGTH, IT
  40. C
  41.       CALL LOC(N,M,IT,N,M,MS)
  42. C
  43. C        DIVIDE BY SCALAR (IF SCALAR IS ZERO, DIVIDE ONLY ONCE)
  44. C
  45.       IF(C) 2,1,2
  46.     1 IT=1
  47.     2 DO 3 I=1,IT
  48.     3 R(I)=A(I)/C
  49.       RETURN
  50.       END
  51.