1c 2c comment section 3c 4c fs053 5c 6c fs053 is a subroutine subprogram which is called by the main 7c program fm050. five integer variable arguments are passed and 8c several return statements are specified. the subroutine fs053 9c adds together the values of the first one, two or three arguments 10c depending on the value of the fifth argument. the resulting sum 11c is then returned to the calling program fm050 through the fourth 12c argument. 13c 14c references 15c american national standard programming language fortran, 16c x3.9-1978 17c 18c section 15.6, subroutines 19c section 15.8, return statement 20c 21c test section 22c 23c subroutine subprogram - several arguments, several returns 24c 25 subroutine fs053 (ivon01,ivon02,ivon03,ivon04,ivon05) 26 go to (10,20,30),ivon05 2710 ivon04 = ivon01 28 return 2920 ivon04 = ivon01 + ivon02 30 return 3130 ivon04 = ivon01 + ivon02 + ivon03 32 return 33 end 34