1c 2c comment section 3c 4c ff059 5c 6c this external function is referenced within subroutine fs058. 7c the three arguments that are passed are simply added together and 8c the result substituted for the original reference. control is 9c then returned to fs058. 10c 11c the values of the arguments that are passed from fs058 to 12c ff059 and the result that is returned are saved in an integer 13c array for later verification by the main program. 14c 15c references 16c american national standard programming language fortran, 17c x3.9-1978 18c 19c section 15.5.1, function subprogram and function statement 20c section 15.8, return statement 21c test section 22c 23c function subprogram 24c 25 integer function ff059 (ivon01,ivon02,ivon03) 26 common iacn11 (12) 27 iacn11 (6) = ivon01 28 iacn11 (7) = ivon02 29 iacn11 (8) = ivon03 30 ff059 = ivon01 + ivon02 + ivon03 31 iacn11 (9) = ivon01 + ivon02 + ivon03 32 return 33 end 34