Return to fs059.f CVS log

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

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

1.1       root        1: c
                      2: c     comment section
                      3: c
                      4: c     ff059
                      5: c
                      6: c          this external function is referenced within subroutine fs058.
                      7: c     the three arguments that are passed are simply added together and
                      8: c     the result substituted for the original reference.  control is
                      9: c     then returned to fs058.
                     10: c
                     11: c          the values of the arguments that are passed from fs058 to
                     12: c     ff059 and the result that is returned are saved in an integer
                     13: c     array for later verification by the main program.
                     14: c
                     15: c      references
                     16: c        american national standard programming language fortran,
                     17: c              x3.9-1978
                     18: c
                     19: c        section 15.5.1, function subprogram and function statement
                     20: c        section 15.8, return statement
                     21: c     test section
                     22: c
                     23: c         function subprogram
                     24: c
                     25:       integer function ff059 (ivon01,ivon02,ivon03)
                     26:       common iacn11 (12)
                     27:       iacn11 (6) = ivon01
                     28:       iacn11 (7) = ivon02
                     29:       iacn11 (8) = ivon03
                     30:       ff059 = ivon01 + ivon02 + ivon03
                     31:       iacn11 (9) = ivon01 + ivon02 + ivon03
                     32:       return
                     33:       end

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