*=*=*=*= isitor.html =*=*=*=*
SUBROUTINE isitor

SUBROUTINE isitor


      SUBROUTINE isitor(filename,writeornot,filenum, files)

C--------------------------------------------------------------------
C Subroutine qui determine si un fichier doit etre ecrit ou non
C--------------------------------------------------------------------
C     ARGUMENTS
C     +++++++++
C     filename: CHARACTER*20
C               nom du fichier dont on veut savoir si il doit etre ecrit
C     writeornot: LOGICAL
C                 Variable de sortie qui est vraie si le champ doit etre ecrit
C     filenum: INTEGER
C              nombre de fichier dans la list files
C     files: CHARACTER*20 files(100)
C            c'est la liste des fichier qui doivent etre ecrit et dans
C            lequel on vas voir si filename y est.
C


      IMPLICIT NONE
      CHARACTER*20 filename, checkname
      CHARACTER*1 separator
      LOGICAL writeornot, check
      INTEGER iletter, ifile
      INTEGER filenum
      CHARACTER*20 files(100)

      writeornot = .FALSE.
      check = .FALSE.
      separator = '/'

      DO 6565 iletter = 20,1,-1

        IF (filename(iletter:iletter) .EQ. separator) THEN

          checkname = filename(iletter+1:20)

        ELSE
        ENDIF
 6565 CONTINUE

      IF (check) THEN
        WRITE(*,*) 'ISITORNOT:: filename=',filename,
     &             'checkname=',checkname
      ENDIF

      DO 6767 ifile = 1,filenum

      IF (files(ifile) .EQ. checkname ) THEN

      writeornot = .TRUE.

      ENDIF

      IF (check) THEN
        WRITE(*,*) 'ISITORNOT:: writeornot=',writeornot
      ENDIF

 6767 CONTINUE

      RETURN
      END