Return to fs029.f CVS log

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

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

1.1     ! root        1:       integer function ff029(ivon01)
        !             2: c
        !             3: c     comment section
        !             4: c     ff029
        !             5: c
        !             6: c         this function subprogram is called by the main program fm028.
        !             7: c     the function argument is incremented by 1 and control returned
        !             8: c     to the calling program.
        !             9: c
        !            10: c      references
        !            11: c        american national standard programming language fortran,
        !            12: c              x3.9-1978
        !            13: c
        !            14: c        section 15.5.1, defining function subprograms and function
        !            15: c                        statements
        !            16: c        section 15.8, return statement
        !            17: c
        !            18: c     test section
        !            19: c
        !            20: c          function subprogram
        !            21: c
        !            22: c     increment argument by 1 and return to calling program.
        !            23: c
        !            24:       ivon02 = ivon01
        !            25:       ff029  = ivon02 + 1
        !            26:       ivon02 = 500
        !            27:       return
        !            28:       end

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