1 real function ff082 (rdon01, rddn3a, rddn1a, rdon02) 2 dimension rddn3a (3,6,3), rddn1a (10) 3c 4c comment section 5c 6c ff082 7c 8c this function subprogram is called by the main program fm080. 9c the function dummy arguments rdon01, rddn3a, and rddn1a are 10c incremented by 6.4, 12.2 and 18.8 respectively before control is 11c returned to the main program. value of the function will be 12c the sum of the actual arguments as passed to the subprogram. 13c 14c references 15c american national standard programming language fortran, 16c x3.9-1978 17c 18c section 15.5.1, function subprogram and function statement 19c 20c test section 21c 22c function subprogram 23c 24 rvon01 = rdon01 25 rvon02 = rddn3a (2,5,2) 26 rvon03 = rddn1a (5) 27 rvon04 = rdon02 28c 29 ff082 = rvon01 + rvon02 + rvon03 + rvon04 30c 31 rdon01 = rvon01 + 6.4 32 rddn3a (2,5,2) = rvon02 + 12.2 33 rddn1a (5) = rvon03 + 18.8 34 rddn3a (1,2,1) = 600.0 + 12.2 35 return 36 end 37