Return to fs058.f CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests

Annotation of 43BSDTahoe/usr.bin/f77/testf77/tests/fs058.f, revision 1.1

1.1     ! root        1: c
        !             2: c     comment section
        !             3: c
        !             4: c     fs058
        !             5: c
        !             6: c          this subroutine is called by subroutine fs057.  the two
        !             7: c     arguments passed from fs057 along with a third parameter created
        !             8: c     in fs058 are then passed to function ff059 where they are used in
        !             9: c     an arithmetic operation.  fs058 then saves the result of this
        !            10: c     operation in the first argument and returns control to fs057
        !            11: c     without any additional processing.
        !            12: c
        !            13: c          the values of the arguments that are passed from fs057 to
        !            14: c     fs058 and returned are saved in an integer array for later
        !            15: c     verification by the main program.
        !            16: c
        !            17: c      references
        !            18: c        american national standard programming language fortran,
        !            19: c              x3.9-1978
        !            20: c
        !            21: c        section 15.5.2, referencing external functions
        !            22: c        section 15.6, subroutines
        !            23: c        section 15.8, return statement
        !            24: c
        !            25: c     test section
        !            26: c
        !            27: c         subroutine subprogram
        !            28: c
        !            29:       subroutine fs058 (ivon01,ivon02)
        !            30:       common iacn11 (12)
        !            31:       integer ff059
        !            32:       ivon03 = 3
        !            33:       iacn11 (3) = ivon01
        !            34:       iacn11 (4) = ivon02
        !            35:       iacn11 (5) = ivon03
        !            36:       ivon01 = ff059 (ivon01,ivon02,ivon03)
        !            37:       iacn11 (10) = ivon01
        !            38:       return
        !            39:       end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.