C C PURPOSE: FUNCTION NEEDED FOR 3J CALCULATION C C INPUTS: C C OUTPUTS: C C COMMON: C C COMMENTS: OCTOBER 6, 1999, P. JUDGE C FUNCTION FN1(RJ1,RJ2,RJ3,RM1,RM2,RM3) C USED IN 3J CALCULATION INCLUDE 'PREC' INCLUDE 'PARAM' INCLUDE 'CINTS' INCLUDE 'FACT' C L1=NINT(RJ1+RJ2-RJ3) L2=NINT(RJ2+RJ3-RJ1) L3=NINT(RJ3+RJ1-RJ2) L4=NINT(RJ1+RJ2+RJ3+ONE) L5=NINT(RJ1+RM1) L6=NINT(RJ1-RM1) L7=NINT(RJ2+RM2) L8=NINT(RJ2-RM2) L9=NINT(RJ3+RM3) L10=NINT(RJ3-RM3) FN1=0.5*(FL(L1)+FL(L2)+FL(L3)-FL(L4)+FL(L5)+FL(L6) / +FL(L7)+FL(L8)+FL(L9)+FL(L10)) RETURN END