[updated 11.Sep.2008]

      SUBROUTINE MOUCHA (FLAG)

  Auteurs : D.Martin, O.deBayser (Avril 1990)
  Derniere modification: D.Martin (30 Decembre 1999)
  Version # 1.0.1
   
  Active ou non le mouchard de l'allocation dynamique
   
 -- Argument d'entree --
  FLAG si ='BAVARD' ou 'ON' activation de l'impression des messages sur
       le fichier des messages de l'allocation dynamique (fort.10)
       sinon pas (ou suspension) des messages

      CHARACTER*(*) FLAG 
 
      INCLUDE 'ALLOC'  
 
      CHARACTER UPPERC*8
      CHARACTER ERCODE,UPCASE*8

      CALL PRFXMJ (1,'#Moucha#')
      TBDCST(16)=-ABS (TBDCST(16))
      UPCASE=UPPERC (FLAG)                                              !utilite
      IF (UPCASE(1:6).EQ.'BAVARD'.OR.UPCASE(1:2).EQ.'ON') THEN
         TBDCST(16)=ABS (TBDCST(16))
         CALL TBAR1  (ERCODE,'#Unite',0,MCFICH)
         AST(MCFICH+TBDCST(16)-1)='%'
      ENDIF
      CALL PRFXMJ (-1,'#Moucha#')
                                                                    END !Moucha