C WIG3JRJ,M UPDATE LOG:
C 02/12/21 - OVERALL PHASE NOT DETERMINED WHEN A2-A3-B1(=B2+B3).LT.0
C 19/02/21 - INITIAL RELEASE
C
C WIG6JR UPDATE LOG
C 23/12/15 - PHASE WAS NOT DETERMINED IF W6J(JMAX)=0
C 11/12/15 - REMOVED TEMP ARRAY.
C 20/11/15 - INITIAL RELEASE.