& WSHET(MAXRES,MAXRES), EDFABET,
& CK(4),SCK(4),S1(4),S2(4)
c & ,DFAEXP(15001),
-
- DATA CK/1.0D0,1.58740105197D0,2.08008382305D0,2.51984209979D0/
- DATA SCK/1.0D0,1.25992104989D0,1.44224957031D0,1.58740105197D0/
- DATA S1/3.75D0,5.75D0,7.75D0,9.75D0/
- DATA S2/4.25D0,6.25D0,8.25D0,10.25D0/