1c 2c comment section 3c 4c fs051 5c 6c fs051 is a subroutine subprogram which is called by the main 7c program fm050. no arguments are specified therefore all 8c parameters are passed via unlabeled common. the subroutine fs051 9c increments the value of a real variable by 1 and returns control 10c to the calling program fm050. 11c 12c references 13c american national standard programming language fortran, 14c x3.9-1978 15c 16c section 15.6, subroutines 17c section 15.8, return statement 18c 19c test section 20c 21c subroutine subprogram - no arguments 22c 23 subroutine fs051 24 common //rvcn01 25 rvcn01 = rvcn01 + 1.0 26 return 27 end 28