SUBROUTINE DBVERP(POS)
      PARAMETER (IPW=64)
      IMPLICIT INTEGER(A-Z)
C
C     PUT THE VERSION NUMBER INTO THE DATABANK (AND INITIALIZE 1ST REC)
C     1 IS USED FOR VERSION 4.1
C     2 IS USED FOR VERSION 4.2
C
      COMMON /TSPBUF/ NOTBUF(6),IREC(IPW)
      INTEGER*2 ECODE,IREC2(8),NXTOFF,NINDEX,VERS
      EQUIVALENCE (IREC,IREC2,NEXTRC), (IREC2(3),NXTOFF),
     * (IREC2(4),NINDEX), (IREC(3),NWASTE), (IREC2(7),VERS)
C
      NEXTRC = 2
      NXTOFF = 1
      NINDEX = 0
      NWASTE = 0
      VERS = 2
      POS = 1
      CALL DBPUT(POS,IREC,ECODE)
C
C     ALSO WRITE A FAKE DATA RECORD SO THAT IT CAN BE READ
C
      POS = 2
      CALL DBPUT(POS,IREC,ECODE)
      RETURN
C
      ENTRY DBVERG(POS,IBAD)
C
C     GET THE VERSION NUMBER
C
      POS = 1
      CALL DBGET(POS,IREC,ECODE)
      IBAD = VERS
      RETURN
      END