Return to fs027.f CVS log

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

BSD 4.3tahoe

      subroutine fs027(ivon01)
c     comment section
c
c     fs027
c
c         this subroutine is called by the main program fm026.  the
c     subroutine argument is incremented by 1 and control returned
c     to the calling program.
c
c      references
c        american national standard programming language fortran,
c              x3.9-1978
c
c        section 15.6, subroutines
c        section 15.8, return statement
c
c     test section
c
c         subroutine subprogram
c
c     increment argument by 1 and return to calling program.
c
      ivon02 = ivon01
      ivon02 = ivon02 + 1
      ivon01 = ivon02
      ivon02 = 300
      return
      end

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