Subroutine open_output


VARIABLES

iiinteger 
? * Definitions
391, 410, 412
iostatinteger 
? input-output status
391, 398, 399
msgcharacter(len=135) 
?  
392, 429, 430, 448, 449
tmp_8real*8(:)
?  
393, 409, 411, 412, 414