1c 2c comment section 3c 4c fs057 5c 6c this subroutine is called by the main program fm056. the 7c single argument passed from fm056 along with a second parameter 8c created in fs057 are then passed via a call to subroutine fs058. 9c a result from an arithmetic operation is returned from fs058 in 10c the first argument. fs057 accepts this result and returns control 11c to fm056 without any additional processing. 12c 13c the values of the arguments that are passed from fm056 to 14c fs057 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.6, subroutines 22c section 15.6.2, subroutine reference 23c section 15.8, return statement 24c 25c test section 26c 27c subroutine subprogram 28c 29 subroutine fs057 (ivon01) 30 common iacn11 (12) 31 iacn11 (1) = ivon01 32 ivon02 = 4 33 iacn11 (2) = ivon02 34 call fs058 (ivon01,ivon02) 35 iacn11 (11) = ivon01 36 return 37 end 38