c$Id: pstart.f,v 1.1 2000/08/24 20:49:58 rlt Exp $
      subroutine pstart()
c
c      * * F E A P * * A Finite Element Analysis Program
c                        -      -       -        -
c....  Copyright (c) 1984-2005: Robert L. Taylor
c                               All rights reserved

      implicit      none

      include  'pdata2.h'

c     Start for X11 graphics driver

      idev = 1

      end