2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
5 integer function nodedim(num)
7 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
10 c---------------------------------------------------------------------
12 c compute the exponent where num = 2**nodedim
13 c NOTE: assumes a power-of-two number of nodes
15 c---------------------------------------------------------------------
19 c---------------------------------------------------------------------
21 c---------------------------------------------------------------------
24 c---------------------------------------------------------------------
26 c---------------------------------------------------------------------
31 nodedim = log(fnum)/log(2.0d+0) + 0.00001