#include "rtcdef.h"
#include "pcs_common.h"

#define set_base        FORTRAN_SUBROUTINE(set_base)
#define display_offset  FORTRAN_SUBROUTINE(display_offset)

static struct nstx_pcs_collect_real  nstx_pcs_collect_real;
static struct nstx_pcs_collect_integer  nstx_pcs_collect_integer;
static struct nstx_pcs_gen  nstx_pcs_gen;
static struct pcs_common  pcsc;
static struct rtcConfig  rtcc;


main()
   {
    set_base(&nstx_pcs_collect_real);
        display_offset(nstx_pcs_collect_real.a0);
        display_offset(nstx_pcs_collect_real.a1);
        display_offset(nstx_pcs_collect_real.a2);
        display_offset(nstx_pcs_collect_real.amax);
        display_offset(nstx_pcs_collect_real.amin);
        display_offset(nstx_pcs_collect_real.i2t);
        display_offset(nstx_pcs_collect_real.ierr);
        display_offset(nstx_pcs_collect_real.iload);
        display_offset(nstx_pcs_collect_real.intclierr);
        display_offset(nstx_pcs_collect_real.intierr);
        display_offset(nstx_pcs_collect_real.iref);
        display_offset(nstx_pcs_collect_real.rc);
        display_offset(nstx_pcs_collect_real.rcoil);
        display_offset(nstx_pcs_collect_real.tbdelay);
        display_offset(nstx_pcs_collect_real.tcoil);
        display_offset(nstx_pcs_collect_real.tfault);
        display_offset(nstx_pcs_collect_real.v0);
        display_offset(nstx_pcs_collect_real.v1);
        display_offset(nstx_pcs_collect_real.v2);
        display_offset(nstx_pcs_collect_real.vclamp);
        display_offset(nstx_pcs_collect_real.vcomm);
        display_offset(nstx_pcs_collect_real.vprtc);
        display_offset(nstx_pcs_collect_real.vref);
        display_offset(nstx_pcs_collect_real.vsim);
        display_offset(&nstx_pcs_collect_real.ftfjb);
	display_offset(nstx_pcs_collect_real.fz);
	display_offset(&nstx_pcs_collect_real.mtfjip);
	display_offset(&nstx_pcs_collect_real.mtfjoop);
	display_offset(&nstx_pcs_collect_real.ptfj);
	display_offset(&nstx_pcs_collect_real.p);
        display_offset(&nstx_pcs_collect_real.q);
        display_offset(&nstx_pcs_collect_real.s);
        display_offset(nstx_pcs_collect_real.tpole);
        display_offset(nstx_pcs_collect_real.imeas);

    set_base(&nstx_pcs_collect_integer);
        display_offset(nstx_pcs_collect_integer.napblock);
        display_offset(nstx_pcs_collect_integer.napon);
        display_offset(nstx_pcs_collect_integer.nbb);
        display_offset(nstx_pcs_collect_integer.nclamp);
        display_offset(nstx_pcs_collect_integer.ncvt1);
        display_offset(nstx_pcs_collect_integer.ncvt2);
        display_offset(nstx_pcs_collect_integer.nfault);
        display_offset(&nstx_pcs_collect_integer.nchiblock);
        display_offset(&nstx_pcs_collect_integer.nerracq);
        display_offset(&nstx_pcs_collect_integer.nhcsoh);
        display_offset(&nstx_pcs_collect_integer.nhcspfchi);
        display_offset(&nstx_pcs_collect_integer.nhcsspa);
        display_offset(&nstx_pcs_collect_integer.nhcstf);
        display_offset(&nstx_pcs_collect_integer.npcon);
        display_offset(&nstx_pcs_collect_integer.npcready);
        display_offset(&nstx_pcs_collect_integer.npsrtcready);
        display_offset(&nstx_pcs_collect_integer.nclampm);
	display_offset(&nstx_pcs_collect_integer.nerracq);
	display_offset(&nstx_pcs_collect_integer.nhcsspa);
        display_offset(&nstx_pcs_collect_integer.navailable3);
	display_offset(&nstx_pcs_collect_integer.navailable2);
	display_offset(&nstx_pcs_collect_integer.navailable1);

    set_base(&nstx_pcs_gen);
        display_offset(nstx_pcs_gen.a1old);
        display_offset(nstx_pcs_gen.a2old);
        display_offset(nstx_pcs_gen.amaxmult);
        display_offset(nstx_pcs_gen.aomeas);
        display_offset(nstx_pcs_gen.astdby);
        display_offset(nstx_pcs_gen.cosgamma);
        display_offset(nstx_pcs_gen.das);
        display_offset(nstx_pcs_gen.dat);
        display_offset(nstx_pcs_gen.dimax);
        display_offset(nstx_pcs_gen.disd);
        display_offset(nstx_pcs_gen.dvmax);
        display_offset(nstx_pcs_gen.ecr);
        display_offset(nstx_pcs_gen.ftime);
        display_offset(nstx_pcs_gen.fvalue);
        display_offset(nstx_pcs_gen.fzmax);
	display_offset(nstx_pcs_gen.gain);
        display_offset(nstx_pcs_gen.i2tmax);
        display_offset(nstx_pcs_gen.iboc);
        display_offset(nstx_pcs_gen.ic);
        display_offset(nstx_pcs_gen.icdot);
        display_offset(nstx_pcs_gen.icln);
        display_offset(nstx_pcs_gen.iclp);
        display_offset(nstx_pcs_gen.iloc);
        display_offset(nstx_pcs_gen.infmtx);
	display_offset(nstx_pcs_gen.ithresh);
        display_offset(nstx_pcs_gen.kb);
	display_offset(nstx_pcs_gen.kip);
	display_offset(nstx_pcs_gen.kmeas);
        display_offset(nstx_pcs_gen.koop);
	display_offset(nstx_pcs_gen.kpb);
        display_offset(nstx_pcs_gen.m);
        display_offset(nstx_pcs_gen.mc);
        display_offset(nstx_pcs_gen.r);
        display_offset(nstx_pcs_gen.r20c);
        display_offset(nstx_pcs_gen.r20coil);
        display_offset(nstx_pcs_gen.r20pole);
        display_offset(nstx_pcs_gen.rpole);
        display_offset(nstx_pcs_gen.rps);
        display_offset(nstx_pcs_gen.rpss);
        display_offset(nstx_pcs_gen.scd);
        display_offset(nstx_pcs_gen.tccoil);
        display_offset(nstx_pcs_gen.tcpole);
        display_offset(nstx_pcs_gen.tireset);
        display_offset(nstx_pcs_gen.tmcoil);
        display_offset(nstx_pcs_gen.trcoil);
        display_offset(nstx_pcs_gen.trpole);
        display_offset(nstx_pcs_gen.vc);
        display_offset(nstx_pcs_gen.vdotmax);
        display_offset(nstx_pcs_gen.vmax);
        display_offset(nstx_pcs_gen.x);
        display_offset(&nstx_pcs_gen.alaunch);
        display_offset(&nstx_pcs_gen.ap13);
        display_offset(&nstx_pcs_gen.coeff);
        display_offset(&nstx_pcs_gen.damax);
        display_offset(&nstx_pcs_gen.dt);
        display_offset(&nstx_pcs_gen.dtsim);
        display_offset(&nstx_pcs_gen.fac);
        display_offset(&nstx_pcs_gen.finv);
        display_offset(&nstx_pcs_gen.fmg);
        display_offset(&nstx_pcs_gen.ftfjbmax);
	display_offset(&nstx_pcs_gen.ichi0);
        display_offset(&nstx_pcs_gen.itfmin);
        display_offset(&nstx_pcs_gen.pi);
        display_offset(&nstx_pcs_gen.ptfjmax);
	display_offset(&nstx_pcs_gen.t0chi);
        display_offset(nstx_pcs_gen.t0coil);
        display_offset(&nstx_pcs_gen.t0pole);
        display_offset(&nstx_pcs_gen.tmax);
        display_offset(&nstx_pcs_gen.tmin);
        display_offset(&nstx_pcs_gen.tmpole);
        display_offset(&nstx_pcs_gen.tpcend);
        display_offset(&nstx_pcs_gen.tpcstart);
        display_offset(&nstx_pcs_gen.tsop);
        display_offset(&nstx_pcs_gen.vmg);
        display_offset(&nstx_pcs_gen.vp13spa);
        display_offset(&nstx_pcs_gen.zchimin);
        display_offset(nstx_pcs_gen.nap);
        display_offset(nstx_pcs_gen.nbpoint);
        display_offset(nstx_pcs_gen.ncb);
        display_offset(nstx_pcs_gen.ncs);
        display_offset(nstx_pcs_gen.ndat);
        display_offset(nstx_pcs_gen.nfvc);
        display_offset(nstx_pcs_gen.nlock);
        display_offset(nstx_pcs_gen.nmeas);
        display_offset(nstx_pcs_gen.np);
        display_offset(nstx_pcs_gen.npc);
        display_offset(nstx_pcs_gen.nplink);
        display_offset(nstx_pcs_gen.nppole);
        display_offset(nstx_pcs_gen.npsum);
        display_offset(nstx_pcs_gen.ns);
        display_offset(nstx_pcs_gen.nsc);
        display_offset(nstx_pcs_gen.ntype);
        display_offset(nstx_pcs_gen.circuitname);
        display_offset(nstx_pcs_gen.f);
        display_offset(nstx_pcs_gen.fcircuit);
        display_offset(&nstx_pcs_gen.nchi_imin_done);
        display_offset(&nstx_pcs_gen.nchi_imin_started);
        display_offset(&nstx_pcs_gen.nchiarc);
        display_offset(&nstx_pcs_gen.nchidelay);
        display_offset(&nstx_pcs_gen.nchisdsc);
        display_offset(&nstx_pcs_gen.nckt);
        display_offset(&nstx_pcs_gen.ndtin);
        display_offset(&nstx_pcs_gen.ndtsim);
        display_offset(&nstx_pcs_gen.newCycle);
        display_offset(&nstx_pcs_gen.nfcount);
        display_offset(&nstx_pcs_gen.nmode);
        display_offset(&nstx_pcs_gen.nlockp13);
        display_offset(&nstx_pcs_gen.npulse);
        display_offset(&nstx_pcs_gen.nreset);
        display_offset(&nstx_pcs_gen.nshot);
        display_offset(&nstx_pcs_gen.nsim);
        display_offset(&nstx_pcs_gen.nsopeop);
        display_offset(&nstx_pcs_gen.nsubmode);
        display_offset(nstx_pcs_gen.faultname);
        display_offset(nstx_pcs_gen.inputdir);
        display_offset(&nstx_pcs_gen.testMode);

    exit(0);
   }