/* avlm8.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"

/* Common Block Declarations */

struct {
    doublereal cpyknt;
    integer istack[1], lorg, icore, maxcor, maxuse, memavl, ldval, numblk, 
	    loctab, ltab, ifwa, nwoff, ntab, maxmem, memerr, nwd4, nwd8, 
	    nwd16;
} memmgr_;

#define memmgr_1 memmgr_

/* Table of constant values */

static integer c__1 = 1;

/*<       subroutine avlm8(iavl) >*/
/* Subroutine */ int avlm8_(iavl)
integer *iavl;
{
    extern integer nxtmem_();

/*<       implicit double precision (a-h,o-z) >*/
/* spice version 2g.6  sccsid=memmgr 3/15/83 */
/*<       common /memmgr/ cpyknt,istack(1),lorg,icore,maxcor,maxuse,memavl, >*/
/*<      1   ldval,numblk,loctab,ltab,ifwa,nwoff,ntab,maxmem,memerr,nwd4, >*/
/*<      2   nwd8,nwd16 >*/
/*<       iavl=((maxmem-icore)/nxtmem(1))*nxtmem(1)-ntab+memavl >*/
    *iavl = (memmgr_1.maxmem - memmgr_1.icore) / nxtmem_(&c__1) * nxtmem_(&
	    c__1) - memmgr_1.ntab + memmgr_1.memavl;
/*<       iavl=iavl/nwd8 >*/
    *iavl /= memmgr_1.nwd8;
/*<       return >*/
    return 0;
/*<       end >*/
} /* avlm8_ */

