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     ! 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.