home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / avlm16.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-21  |  1.2 KB  |  44 lines
  1. /* avlm16.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. struct {
  11.     doublereal cpyknt;
  12.     integer istack[1], lorg, icore, maxcor, maxuse, memavl, ldval, numblk, 
  13.         loctab, ltab, ifwa, nwoff, ntab, maxmem, memerr, nwd4, nwd8, 
  14.         nwd16;
  15. } memmgr_;
  16.  
  17. #define memmgr_1 memmgr_
  18.  
  19. /* Table of constant values */
  20.  
  21. static integer c__1 = 1;
  22.  
  23. /*<       subroutine avlm16(iavl) >*/
  24. /* Subroutine */ int avlm16_(iavl)
  25. integer *iavl;
  26. {
  27.     extern integer nxtmem_();
  28.  
  29. /*<       implicit double precision (a-h,o-z) >*/
  30. /* spice version 2g.6  sccsid=memmgr 3/15/83 */
  31. /*<       common /memmgr/ cpyknt,istack(1),lorg,icore,maxcor,maxuse,memavl, >*/
  32. /*<      1   ldval,numblk,loctab,ltab,ifwa,nwoff,ntab,maxmem,memerr,nwd4, >*/
  33. /*<      2   nwd8,nwd16 >*/
  34. /*<       iavl=((maxmem-icore)/nxtmem(1))*nxtmem(1)-ntab+memavl >*/
  35.     *iavl = (memmgr_1.maxmem - memmgr_1.icore) / nxtmem_(&c__1) * nxtmem_(&
  36.         c__1) - memmgr_1.ntab + memmgr_1.memavl;
  37. /*<       iavl=iavl/nwd16 >*/
  38.     *iavl /= memmgr_1.nwd16;
  39. /*<       return >*/
  40.     return 0;
  41. /*<       end >*/
  42. } /* avlm16_ */
  43.  
  44.