1c 2c comment section 3c 4c fs058 5c 6c this subroutine is called by subroutine fs057. the two 7c arguments passed from fs057 along with a third parameter created 8c in fs058 are then passed to function ff059 where they are used in 9c an arithmetic operation. fs058 then saves the result of this 10c operation in the first argument and returns control to fs057 11c without any additional processing. 12c 13c the values of the arguments that are passed from fs057 to 14c fs058 and returned are saved in an integer array for later 15c verification by the main program. 16c 17c references 18c american national standard programming language fortran, 19c x3.9-1978 20c 21c section 15.5.2, referencing external functions 22c section 15.6, subroutines 23c section 15.8, return statement 24c 25c test section 26c 27c subroutine subprogram 28c 29 subroutine fs058 (ivon01,ivon02) 30 common iacn11 (12) 31 integer ff059 32 ivon03 = 3 33 iacn11 (3) = ivon01 34 iacn11 (4) = ivon02 35 iacn11 (5) = ivon03 36 ivon01 = ff059 (ivon01,ivon02,ivon03) 37 iacn11 (10) = ivon01 38 return 39 end 40