home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / ssp / matops / mfun.for < prev    next >
Encoding:
Text File  |  1985-11-29  |  1.5 KB  |  51 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE MFUN
  5. C
  6. C        PURPOSE
  7. C           APPLY A FUNCTION TO EACH ELEMENT OF A MATRIX TO FORM A
  8. C           RESULTANT MATRIX
  9. C
  10. C        USAGE
  11. C           CALL MFUN (A,F,R,N,M,MS)
  12. C           AN EXTERNAL STATEMENT MUST PRECEDE CALL STATEMENT IN ORDER
  13. C           TO IDENTIFY PARAMETER F AS THE NAME OF A FUNCTION
  14. C
  15. C        DESCRIPTION OF PARAMETERS
  16. C           A - NAME OF INPUT MATRIX
  17. C           F - NAME OF FORTRAN-FURNISHED OR USER FUNCTION SUBPROGRAM
  18. C           R - NAME OF OUTPUT MATRIX
  19. C           N - NUMBER OF ROWS IN MATRIX A AND R
  20. C           M - NUMBER OF COLUMNS IN MATRIX A AND R
  21. C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A (AND R)
  22. C                  0 - GENERAL
  23. C                  1 - SYMMETRIC
  24. C                  2 - DIAGONAL
  25. C
  26. C        REMARKS
  27. C           PRECISION IS DEPENDENT UPON PRECISION OF FUNCTION USED
  28. C
  29. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  30. C           LOC
  31. C
  32. C        METHOD
  33. C           FUNCTION F IS APPLIED TO EACH ELEMENT OF MATRIX A
  34. C           TO FORM MATRIX R
  35. C
  36. C     ..................................................................
  37. C
  38.       SUBROUTINE MFUN(A,F,R,N,M,MS)
  39.       DIMENSION A(1),R(1)
  40. C
  41. C        COMPUTE VECTOR LENGTH, IT
  42. C
  43.       CALL LOC(N,M,IT,N,M,MS)
  44. C
  45. C        BUILD MATRIX R FOR ANY STORAGE MODE
  46. C
  47.       DO 5 I=1,IT
  48.     5 R(I)=F(A(I))
  49.       RETURN
  50.       END
  51.