Subroutine vom_rootuptake


VARIABLES

iinteger
?  
1118, 1122, 1123