C
C This file is issued from the MODULEF library, but has been 
C subsequently modified
C
      FUNCTION NBMCHA(NOM)
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C    BUT : DONNER LE NOMBRE D'ENTIERS UTILE POUR CODER LA CHAINE DE
C     CARACTERES NOM DANS UN TABLEAU ENTIER
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C PROGRAMMEUR : F. HECHT - INRIA - AVRIL 86
C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      CHARACTER*(*) NOM
      L=LEN(NOM)
      NBMCHA=(L+4)/4
      END
