Return to fs082.f CVS log

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

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

1.1       root        1:       real function ff082 (rdon01, rddn3a, rddn1a, rdon02)
                      2:       dimension  rddn3a (3,6,3), rddn1a (10)
                      3: c
                      4: c     comment section
                      5: c
                      6: c     ff082
                      7: c
                      8: c         this function subprogram is called by the main program fm080.
                      9: c     the function dummy arguments rdon01, rddn3a, and rddn1a are
                     10: c     incremented by 6.4, 12.2 and 18.8 respectively before control is
                     11: c     returned to the main program.  value of the function will be
                     12: c     the sum of the actual arguments as passed to the subprogram.
                     13: c
                     14: c      references
                     15: c        american national standard programming language fortran,
                     16: c              x3.9-1978
                     17: c
                     18: c        section 15.5.1, function subprogram and function statement
                     19: c
                     20: c     test section
                     21: c
                     22: c          function subprogram
                     23: c
                     24:       rvon01 = rdon01
                     25:       rvon02 = rddn3a (2,5,2)
                     26:       rvon03 = rddn1a (5)
                     27:       rvon04 = rdon02
                     28: c
                     29:       ff082 = rvon01 + rvon02 + rvon03  + rvon04
                     30: c
                     31:       rdon01 =     rvon01 + 6.4
                     32:       rddn3a (2,5,2) = rvon02 + 12.2
                     33:       rddn1a (5)     = rvon03 + 18.8
                     34:       rddn3a (1,2,1) =  600.0 + 12.2
                     35:       return
                     36:       end

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