Return to fs055.f CVS log

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

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

1.1       root        1: c
                      2: c     comment section
                      3: c
                      4: c     fs055
                      5: c
                      6: c          fs055 is a subroutine subprogram which is called by the main
                      7: c     program fm050.  no arguments are specified therefore all
                      8: c     parameters are passed via unlabeled common.  the subroutine fs055
                      9: c     initializes a one dimensional integer array of 20 elements with
                     10: c     the values 1 through 20 respectively.  control is then returned
                     11: c     to the calling program fm050.
                     12: c
                     13: c      references
                     14: c        american national standard programming language fortran,
                     15: c              x3.9-1978
                     16: c
                     17: c        section 15.6, subroutines
                     18: c        section 15.8, return statement
                     19: c
                     20: c     test section
                     21: c
                     22: c         subroutine subprogram - array arguments
                     23: c
                     24:       subroutine fs055
                     25:       common rvcn01,ivcn01,ivcn02,iacn11
                     26:       dimension iacn11(20)
                     27:       do 20 i = 1,20
                     28:       iacn11(i) = i
                     29: 20    continue
                     30:       return
                     31:       end

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