C  5 JUL 05 - MWS - SELECT NEW ATOM,BASIS,EFP,PCM,DAF DIMENSIONS
C  1 JUN 05 - DUMMY FILE
C
      SUBROUTINE VBGMS(IOPT)
C
C     USED IN VB2000 PLUG-IN TO GAMESS(US)
C     WRITTEN BY: BRIAN DUKE, NOVEMBER 2003
C
C     THIS IS A DUMMY MODULE TO SHORT CIRCUIT VB2000 CALLS
C     WHEN VB2000 IS NOT LINKED INTO GAMESS.
C     FOR THE REAL SOURCE CODE OF VB2000, SEE
C          HTTP://WWW.SCINETEC.COM/~VB
C
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      LOGICAL GOPARR,DSKWRK,MASWRK
      COMMON /IOFILE/ IR,IW,IP,IS,IPK,IDAF,NAV,IODA(950)
      COMMON /PAR   / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
C
C        LOOK FOR $VB GROUP, BUT WHETHER IT IS FOUND OR NOT,
C        REPORT ERROR AND KILL RUN.
C
      IF(IOPT.EQ.0) THEN
         IEOF = 0
         CALL SEQREW(IR)
         CALL FNDGRP(IR,' $VB2000',IEOF)
C
         IF(IEOF.EQ.1) THEN
            IF(MASWRK) WRITE(IW,900)
            CALL ABRT
         ELSE
            IF(MASWRK) WRITE(IW,910)
            CALL ABRT
         END IF
      ELSE
         IF(MASWRK) WRITE(IW,*) 'VBGMS CALLED WITH IOPT=',IOPT
         CALL ABRT
      END IF
      RETURN
C
  900 FORMAT(1X,'--- ERROR - VBTYP REQUESTED IN INPUT ----'/
     *       1X,'BUT THE VB CODE WAS NOT LINKED INTO GAMESS,'/
     *       1X,'AND NO $VB INPUT GROUP WAS GIVEN.')
  910 FORMAT(1X,'--- ERROR - VBTYP REQUESTED IN INPUT, AND $VB FOUND'/
     *       1X,'BUT THE VB CODE WAS NOT LINKED INTO GAMESS')
      END
C
      SUBROUTINE TRUCON
      RETURN
      END
