1c 2c comment section 3c 4c fs055 5c 6c fs055 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 fs055 9c initializes a one dimensional integer array of 20 elements with 10c the values 1 through 20 respectively. control is then returned 11c to the calling program fm050. 12c 13c references 14c american national standard programming language fortran, 15c x3.9-1978 16c 17c section 15.6, subroutines 18c section 15.8, return statement 19c 20c test section 21c 22c subroutine subprogram - array arguments 23c 24 subroutine fs055 25 common rvcn01,ivcn01,ivcn02,iacn11 26 dimension iacn11(20) 27 do 20 i = 1,20 28 iacn11(i) = i 2920 continue 30 return 31 end 32