Return to fs081.f CVS log

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

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

1.1     ! root        1:       integer function ff081 (idon01, iddn10, iddn20, idon02)
        !             2: c
        !             3: c     comment section
        !             4: c
        !             5: c     ff081
        !             6: c
        !             7: c         this function subprogram is called by the main program fm080.
        !             8: c     the function dummy arguments idon01, iddn10 and iddn20 are
        !             9: c     incremented by 2, 40 and 70 respectively before control is
        !            10: c     returned to the calling program.  value of the function will be
        !            11: c     the sum of the actual arguments as passed from calling program.
        !            12: c
        !            13: c      references
        !            14: c        american national standard programming language fortran,
        !            15: c              x3.9-1978
        !            16: c
        !            17: c        section 15.5.1, function subprogram and function statement
        !            18: c
        !            19: c     test section
        !            20: c
        !            21: c         function subprogram
        !            22: c
        !            23:       dimension  iddn10 (5),   iddn20 (4,4)
        !            24:       ivon01 = idon01
        !            25:       ivon02 = iddn10(2)
        !            26:       ivon03 = iddn20(1,3)
        !            27:       ivon04 = idon02
        !            28: c
        !            29:       ff081  = ivon01 + ivon02 + ivon03 + ivon04
        !            30:       idon01 = ivon01 + 2
        !            31:       iddn10 (2) = ivon02   + 40
        !            32:       iddn20 (1,3) = ivon03 + 70
        !            33:       iddn10 (4) = ivon02 + 40
        !            34:       return
        !            35:       end

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