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

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.