/* nxtmem.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 nxtmem(memwds) >*/
integer nxtmem_(memwds)
integer *memwds;
{
    /* System generated locals */
    integer ret_val;


/* .. function returns the in nxtmem the next available memory size */
/* .. (which must be evenly divisible by 'nwd4, nwd8, and nwd16' as */
/* .. defined in setmem */

/*<       nxtmem=((memwds+1999)/2000)*2000 >*/
    ret_val = (*memwds + 1999) / 2000 * 2000;
/*<       return >*/
    return ret_val;
/*<       end >*/
} /* nxtmem_ */

