1 integer function ff081 (idon01, iddn10, iddn20, idon02) 2c 3c comment section 4c 5c ff081 6c 7c this function subprogram is called by the main program fm080. 8c the function dummy arguments idon01, iddn10 and iddn20 are 9c incremented by 2, 40 and 70 respectively before control is 10c returned to the calling program. value of the function will be 11c the sum of the actual arguments as passed from calling program. 12c 13c references 14c american national standard programming language fortran, 15c x3.9-1978 16c 17c section 15.5.1, function subprogram and function statement 18c 19c test section 20c 21c function subprogram 22c 23 dimension iddn10 (5), iddn20 (4,4) 24 ivon01 = idon01 25 ivon02 = iddn10(2) 26 ivon03 = iddn20(1,3) 27 ivon04 = idon02 28c 29 ff081 = ivon01 + ivon02 + ivon03 + ivon04 30 idon01 = ivon01 + 2 31 iddn10 (2) = ivon02 + 40 32 iddn20 (1,3) = ivon03 + 70 33 iddn10 (4) = ivon02 + 40 34 return 35 end 36