!---------------------------------------------------------------------
! loading RICH geometry into internal storrage (commons)
! M. Staric, jul-2000
!
!---------------------------------------------------------------------


      SUBROUTINE LOAD_GEO(IER)

      INTEGER IER

      LOGICAL OK

      CALL LOAD_ARTE_DB(OK)

      IER=0
      IF(.NOT.OK) IER=-1

      RETURN
      END


