Return to fs027.f CVS log

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

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

1.1       root        1:       subroutine fs027(ivon01)
                      2: c     comment section
                      3: c
                      4: c     fs027
                      5: c
                      6: c         this subroutine is called by the main program fm026.  the
                      7: c     subroutine 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.6, subroutines
                     15: c        section 15.8, return statement
                     16: c
                     17: c     test section
                     18: c
                     19: c         subroutine subprogram
                     20: c
                     21: c     increment argument by 1 and return to calling program.
                     22: c
                     23:       ivon02 = ivon01
                     24:       ivon02 = ivon02 + 1
                     25:       ivon01 = ivon02
                     26:       ivon02 = 300
                     27:       return
                     28:       end

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