Subroutine vom_mqss


VARIABLES

sum1real*8
?  
1593, 1607, 1608
sum2real*8
?  
1593, 1610, 1612
mul1real*8
?  
1593, 1608, 1614
mul2real*8
?  
1593, 1612, 1614