15 dimension iaa(20),rr(20),dd(20),ww(20),
rms(20)
20 DATA iaa/2,4,12,16,27,32,40,56,63,93,184,197,208,7*0./
21 DATA rr/0.01,.964,2.355,2.608,2.84,3.458,3.766,3.971,4.214,
22 1 4.87,6.51,6.38,6.624,7*0./
23 DATA dd/0.5882,.322,.522,.513,.569,.61,.586,.5935,.586,.573,
24 1 .535,.535,.549,7*0./
25 DATA ww/0.0,.517,-0.149,-0.051,0.,-0.208,-0.161,13*0./
26 DATA rms/2.11,1.71,2.46,2.73,3.05,3.247,3.482,3.737,3.925,4.31,
27 1 5.42,5.33,5.521,7*0./
34 r=1.19*
a**(1./3.) - 1.61*
a**(-1./3.)
41 IF (ia.EQ.iaa(i))
THEN
63 ELSE IF (idh.EQ.2)
THEN