The CCMFV program^ as well as several of the following programs, utilizes a 



subroutine for the internal ro-unding of values before they are output. This 



subroutine (EOUND) may profitably be described at this point. 



SUBROUTINE TITLE: ROUND • 



Variables Used in Subroutine : 



VALUE Corresponds to the value in the calling program which is to 



be output. 



N 

 DEC 10 where W is the number of digits which are to be output 



to the right of the decimal. 



STJmmary of Subroutine : 



If there are N digits to the right of the decimal in the output specification 



for VALUE, ROUND tests the N+lst digit to see if it is equal to or greater 



than 5- If it is, the Nth digit is rounded up. Otherwise, the Nth digit 



remains im changed. 



Remarks ; 



Mode specifications, f and k, for ROUND must be idential with those for the 



calling program; k for ROUND must be one greater than the maximum number of 



digits to be output for any VALUE specified by the calling program. 



31 



