*
* $Id$
*
* $Log$
*
*
* gthvir.inc
*
      INTEGER JVIRT,JVDIV,JCONT2,JCONT