C     
      SUBROUTINE EFCLFSI
C     
C     ( purpose )
C       Clear common FSIHIST
C
C     ( input ) 
C       none
C
C     ( output ) 
C       COMMON /FSIHIST/
C
C
#include "fsihist.h"

      NVERT=0
      CALL VZERO(POSVERT ,3*MAXVERT)
      CALL VZERO(IFLGVERT,MAXVERT)

      NVCVERT=0
      CALL VZERO(DIRVERT ,3*MAXVCVERT)
      CALL VZERO(ABSPVERT ,MAXVCVERT)
      CALL VZERO(ABSTPVERT ,MAXVCVERT)
      CALL VZERO(IPVERT ,MAXVCVERT)
      CALL VZERO(IVERTI ,MAXVCVERT)
      CALL VZERO(IVERTF ,MAXVCVERT)

      FSIPROB=1

      RETURN
      END