C
C $Id: chkovlp.F,v 1.3 1998/07/16 16:39:29 jjv5 Exp $
C
C------------------------------------------------------------------------
      subroutine chkovlp(ierror)

      implicit double precision(a-h,o-z)
#include "divcon.dim"
#include "divcon.h"

C     check the maxovlpi parameters

      if ((maxovlp1.lt.maxkpme32).or.
     &     (maxovlp1.lt.msorb2).or.
     &     (maxovlp1.lt.mxpres)) then
C-RDC          write(iout,'(/" ERROR IN VALUE OF MAXOVLP1 IN ",
C-RDC      &        "divcon.dim")')
         ierror = 1
      endif

      if ((maxovlp2.lt.maxkpme3).or.(maxovlp2.lt.msorb2)) then
C-RDC          write(iout,'(/" ERROR IN VALUE OF MAXOVLP2 IN ",
C-RDC      &        "divcon.dim")')
         ierror = 1
      endif

      if (msrorb.lt.msorb) then
C-RDC          write(iout,'(/" ERROR IN VALUE OF MSRORB IN divcon.dim")')
         ierror = 1
      endif

      end