Return to fs083.f CVS log

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

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

1.1       root        1:       function  ff083 (idon01,iddn2a,iddn3a,rdon02)
                      2:       dimension  iddn2a (2,2), iddn3a(3,4,5)
                      3: c
                      4: c     comment section
                      5: c
                      6: c     ff083
                      7: c
                      8: c         this function subprogram is called by the main program fm080.
                      9: c     the type declaration is implicit real.
                     10: c     the function dummy arguments are both integer and real. dummy
                     11: c     arguments idon01, iddn2a and iddn3a are incremented by 10, 20 and
                     12: c     40 respectively before control is returned to the main program.
                     13: c     the value of the function returned to the referencing program
                     14: c     will be the sum of the actual arguments as passed to the
                     15: c     subprogram ff083.
                     16: c         dummy argument iddn2a corresponds to an array-name in the
                     17: c     actual argument of the main program.  dummy argument iddn3a
                     18: c     corresponds to an array-element-name in the actual argument of the
                     19: c     main program.  dummy argument idon02  corresponds to an expression
                     20: c     containing variables,arithmetic operators and constants in the
                     21: c     actual argument of the main program.
                     22: c
                     23: c      references
                     24: c        american national standard programming language fortran,
                     25: c              x3.9-1978
                     26: c
                     27: c        section 4.1.2, type rules for data and procedure identifiers
                     28: c        section 15.5.1, function subprogram
                     29: c
                     30: c     test section
                     31: c
                     32: c          function subprogram
                     33: c
                     34:       ivon01 = idon01
                     35:       ivon02 = iddn2a (1,1)
                     36:       ivon03 = iddn3a (2,3,4)
                     37:       rvon04 = rdon02
                     38: c
                     39:       rvon05 = ivon01 + ivon02 + ivon03
                     40:       ff083 = rvon05 + rvon04
                     41: c
                     42:       idon01 = ivon01 + 10
                     43:       iddn2a (1,1) = ivon02 + 20
                     44:       iddn3a (2,3,4) = ivon03 + 40
                     45: c
                     46:       return
                     47:       end

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