*
* $Id$
*
* $Log$
*
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.00/03 15/04/96  17.01.32  by  Francesco Cafagna
*CMZ :  1.00/02 04/04/96  17.35.45  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   04/04/96
      LOGICAL FUNCTION GPLOOK(CHAR,NVEC,NCOM)
************************************************************************
*                                                                      *
* Returns TRUE if the CHARACTER*4 string is found into the vector NVEC *
* of NCOM words                                                        *
*                                                                      *
* Variables definition:                                                *
* IN:                                                                  *
*  CHAR  , CHARACTER*4 word to be searched                             *
*  NVEC  , INTEGER vector to be searched for CHAR                      *
*  NCOM  , Number of NVEC components                                   *
*                                                                      *
* Called by: <USER>                                                    *
* Author: Francesco Cafagna, 04/04/96 17.17.32                         *
*                                                                      *
************************************************************************
      CHARACTER*4 CHAR
      INTEGER NVEC(1),NCOM,IL
      IL = 0
      GPLOOK = .FALSE.
      CALL GLOOK(CHAR,NVEC,NCOM,IL)
      IF(IL.GT.0) GPLOOK = .TRUE.
      RETURN
      END
