SUBROUTINE SETASSFLG 1
#if defined (DOC)
*
***s/r SETASSFLG  - SET BIT IN QUALITY CONTROL FLAG
*
*
*Author  : P. Koclas *CMC/AES  March 2000
*Revision:
*           Y. Yang - Oct. 2004
*            - Added include "comnumbr.cdk"
*              due to the dependence of the "cvcord.cdk" on JPNBRELEM
*
**    Purpose:  -Set BANCO QUALITY CONTROL BIT No 12 FOR ALL DATA ASSIMILATED
*                BY CURRENT ANALYSIS.
*
*
*Arguments
*
#endif
      IMPLICIT NONE
*implicits
#include "comdimo.cdk"
#include "comoabdy.cdk"
#include "comoahdr.cdk"
#include "comoba.cdk"
#include "comnumbr.cdk"
#include "cvcord.cdk"
*
      INTEGER IBEGIN,ILAST
      INTEGER J,JDATA
      LOGICAL LLOK
C
C
      DO J = 1,NFILES
         IF ( ( NBEGINTYP(J) .GT. 0) ) THEN
            IBEGIN=NBEGINTYP(J)
             ILAST=NENDTYP(J)
C
C     .  -----------------------------
C
 100  CONTINUE
C
C     Process all data
C
      DO JDATA=IBEGIN,ILAST
         IF (MOBDATA(NCMASS,JDATA) .EQ. 1)  THEN
            MOBDATA(NCMFLG,JDATA)=ibset( MOBDATA(NCMFLG,JDATA) , 12 )
         ENDIF
      END DO
C
 300  CONTINUE
C
         ENDIF
      END DO
C--------------------------------------------------------------------
      RETURN
      END