!*******************************************************************************
!$RCSfile$
!$Revision$
!$Date$
!*******************************************************************************
SUBROUTINE set_version( iversion_code )

IMPLICIT NONE

INTEGER, INTENT( OUT ) :: iversion_code

!**************************** VERSION 2.8 **************************************

iversion_code = 2803

RETURN
END
