Return to fs057.f CVS log

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

Annotation of 43BSDTahoe/usr.bin/f77/testf77/tests/fs057.f, revision 1.1.1.1

1.1       root        1: c
                      2: c     comment section
                      3: c
                      4: c     fs057
                      5: c
                      6: c          this subroutine is called by the main program fm056.  the
                      7: c     single argument passed from fm056 along with a second parameter
                      8: c     created in fs057 are then passed via a call to subroutine fs058.
                      9: c     a result from an arithmetic operation is returned from fs058 in
                     10: c     the first argument.  fs057 accepts this result and returns control
                     11: c     to fm056 without any additional processing.
                     12: c
                     13: c          the values of the arguments that are passed from fm056 to
                     14: c     fs057 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.6, subroutines
                     22: c        section 15.6.2, subroutine reference
                     23: c        section 15.8, return statement
                     24: c
                     25: c     test section
                     26: c
                     27: c         subroutine subprogram
                     28: c
                     29:       subroutine fs057 (ivon01)
                     30:       common iacn11 (12)
                     31:       iacn11 (1) = ivon01
                     32:       ivon02 = 4
                     33:       iacn11 (2) = ivon02
                     34:       call fs058 (ivon01,ivon02)
                     35:       iacn11 (11) = ivon01
                     36:       return
                     37:       end

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