/* cpytb4.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 value[200000];
} blank_;

#define blank_1 blank_

/*<       subroutine cpytb4(itabo,itabn) >*/
/* Subroutine */ int cpytb4_(itabo, itabn)
integer *itabo, *itabn;
{
    /* Local variables */
    static integer locn, loco;
    extern /* Subroutine */ int getm4_(), copy4_();
    static integer isize;
#define nodplc ((integer *)&blank_1)
#define cvalue ((complex *)&blank_1)
    extern /* Subroutine */ int sizmem_();

/*<       implicit double precision (a-h,o-z) >*/

/*     this routine copies a table.  its use is made necessary by the */
/* fact that only one pointer is allowed per table. */

/* spice version 2g.6  sccsid=blank 3/15/83 */
/*<       common /blank/ value(200000) >*/
/*<       integer nodplc(64) >*/
/*<       complex cvalue(32) >*/
/*<       equivalence (value(1),nodplc(1),cvalue(1)) >*/


/*<       call sizmem(nodplc(itabo),isize) >*/
    sizmem_(&nodplc[*itabo - 1], &isize);
/*<       call getm4(nodplc(itabn),isize) >*/
    getm4_(&nodplc[*itabn - 1], &isize);
/*<       loco=nodplc(itabo) >*/
    loco = nodplc[*itabo - 1];
/*<       locn=nodplc(itabn) >*/
    locn = nodplc[*itabn - 1];
/*<       call copy4(nodplc(loco+1),nodplc(locn+1),isize) >*/
    copy4_(&nodplc[loco], &nodplc[locn], &isize);
/*<       return >*/
    return 0;
/*<       end >*/
} /* cpytb4_ */

#undef cvalue
#undef nodplc


