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     ! 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.