************************************************************************
PATCH FOR SUBROUTINE CMOANL:  
************************************************************************
Near line 37984 of NBO_50.SRC, replace 

             IDIG(4-ID+1) = IDIG(ND-ID+1)

by

             IDIG(ID+4-ND) = IDIG(ID)

(Thanks to Jim Kress for notification)
C***********************************************************************