%N assertigei %F $MIR/src/subs/assert.for
%D Assert a condition integer1 greater or equal than integer2
%P pjt
%: error-handling
%B
      SUBROUTINE assertigei (i1,i2,mesg)

      INTEGER   i1, i2
      CHARACTER mesg*(*)

   Assert that I1 >= I2, otherwise bail out by calling
   'bug' with the type 'f' and mesg as provided in the arguments.
   Is often used to check if enough memory in arrays for operations
   Example:
       CALL asserti2(MAXBUF,naxis1*naxis2,'MAXBUF vs. naxis1*naxis2')
   Note that
       CALL assert(MAXBUF.GT.naxis1*naxis2,'MAXBUF vs. naxis1*naxis2')
   would also do the trick, except it will not print out values.

   Input:
       i1      -- first integer, often an available size (of an array)
       i2      -- second integer, often size needed (for the array)
       mesg    -- message passed to bug
