/* nxtevn.f -- translated by f2c (version of 3 February 1990  3:36:42).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/*<       integer function nxtevn(n) >*/
integer nxtevn_(n)
integer *n;
{
    /* System generated locals */
    integer ret_val;


/* .. function returns the smallest value nxtevn greater than or equal to 
*/
/* .. n which is evenly divisible by 'nwd4, nwd8, and nwd16' as defined */

/* .. in setmem */

/*<       nxtevn=((n+3)/4)*4 >*/
    ret_val = (*n + 3) / 4 << 2;
/*<       return >*/
    return ret_val;
/*<       end >*/
} /* nxtevn_ */

