The Varian Include file erpz_include.h that declares all parameters.
Also available are Varian macros that will automatically create all these parameters in vnmr. Please contact zuiderwe@umich.edu.
 
 

/* unversal parameter set */
/* Erik R.P. Zuiderweg, University of Michigan; Ananya Majumdar, Sloan Kettering */
int t1_counter;
int t2_counter;
int t3_counter;
double tau1;
double tau2;
double tau3;
double del0 = getval("del0");
double del1 = getval("del1");
double del2 = getval("del2");
double del3 = getval("del3");
double del4 = getval("del4");
double del5 = getval("del5");
double del6 = getval("del6");
double del7 = getval("del7");
double del8 = getval("del8");
double del9 = getval("del9");
double del10 = getval("del10");
double del11 = getval("del11");
double del12 = getval("del12");
double del13 = getval("del13");
double del14 = getval("del14");
double del15 = getval("del15");
double del16 = getval("del16");
double del17 = getval("del17");
double del18 = getval("del18");
double del19 = getval("del19");
double del20 = getval("del20");
double del21 = getval("del21");
double del22 = getval("del22");
double del23 = getval("del23");
double del24 = getval("del24");
double del25 = getval("del25");
double del26 = getval("del26");
double del27 = getval("del27");
double del28 = getval("del28");
double del29 = getval("del29");
double del30 = getval("del30");
double del31 = getval("del31");

double pul0 = getval("pul0");
double pul1 = getval("pul1");
double pul2 = getval("pul2");
double pul3 = getval("pul3");
double pul4 = getval("pul4");
double pul5 = getval("pul5");
double pul6 = getval("pul6");
double pul7 = getval("pul7");
double pul8 = getval("pul8");
double pul9 = getval("pul9");
double pul10 = getval("pul10");
double pul11 = getval("pul11");
double pul12 = getval("pul12");
double pul13 = getval("pul13");
double pul14 = getval("pul14");
double pul15 = getval("pul15");
double pul16 = getval("pul16");
double pul17 = getval("pul17");
double pul18 = getval("pul18");
double pul19 = getval("pul19");
double pul20 = getval("pul20");
double pul21 = getval("pul21");
double pul22 = getval("pul22");
double pul23 = getval("pul23");
double pul24 = getval("pul24");
double pul25 = getval("pul25");
double pul26 = getval("pul26");
double pul27 = getval("pul27");
double pul28 = getval("pul28");
double pul29 = getval("pul29");
double pul30 = getval("pul30");
double pul31 = getval("pul31");

double hpwr0 = getval("hpwr0");
double hpwr1 = getval("hpwr1");
double hpwr2 = getval("hpwr2");
double hpwr3 = getval("hpwr3");
double hpwr4 = getval("hpwr4");
double hpwr5 = getval("hpwr5");
double hpwr6 = getval("hpwr6");
double hpwr7 = getval("hpwr7");
double hpwr8 = getval("hpwr8");
double hpwr9 = getval("hpwr9");
double hpwr10 = getval("hpwr10");
double hpwr11 = getval("hpwr11");
double hpwr12 = getval("hpwr12");
double hpwr13 = getval("hpwr13");
double hpwr14 = getval("hpwr14");
double hpwr15 = getval("hpwr15");
double hpwr16 = getval("hpwr16");
double hpwr17 = getval("hpwr17");
double hpwr18 = getval("hpwr18");
double hpwr19 = getval("hpwr19");
double hpwr20 = getval("hpwr20");
double hpwr21 = getval("hpwr21");
double hpwr22 = getval("hpwr22");
double hpwr23 = getval("hpwr23");
double hpwr24 = getval("hpwr24");
double hpwr25 = getval("hpwr25");
double hpwr26 = getval("hpwr26");
double hpwr27 = getval("hpwr27");
double hpwr28 = getval("hpwr28");
double hpwr29 = getval("hpwr29");
double hpwr30 = getval("hpwr30");
double hpwr31 = getval("hpwr31");

double cpwr0 = getval("cpwr0");
double cpwr1 = getval("cpwr1");
double cpwr2 = getval("cpwr2");
double cpwr3 = getval("cpwr3");
double cpwr4 = getval("cpwr4");
double cpwr5 = getval("cpwr5");
double cpwr6 = getval("cpwr6");
double cpwr7 = getval("cpwr7");
double cpwr8 = getval("cpwr8");
double cpwr9 = getval("cpwr9");
double cpwr10 = getval("cpwr10");
double cpwr11 = getval("cpwr11");
double cpwr12 = getval("cpwr12");
double cpwr13 = getval("cpwr13");
double cpwr14 = getval("cpwr14");
double cpwr15 = getval("cpwr15");
double cpwr16 = getval("cpwr16");
double cpwr17 = getval("cpwr17");
double cpwr18 = getval("cpwr18");
double cpwr19 = getval("cpwr19");
double cpwr20 = getval("cpwr20");
double cpwr21 = getval("cpwr21");
double cpwr22 = getval("cpwr22");
double cpwr23 = getval("cpwr23");
double cpwr24 = getval("cpwr24");
double cpwr25 = getval("cpwr25");
double cpwr26 = getval("cpwr26");
double cpwr27 = getval("cpwr27");
double cpwr28 = getval("cpwr28");
double cpwr29 = getval("cpwr29");
double cpwr30 = getval("cpwr30");
double cpwr31 = getval("cpwr31");

double npwr0 = getval("npwr0");
double npwr1 = getval("npwr1");
double npwr2 = getval("npwr2");
double npwr3 = getval("npwr3");
double npwr4 = getval("npwr4");
double npwr5 = getval("npwr5");
double npwr6 = getval("npwr6");
double npwr7 = getval("npwr7");
double npwr8 = getval("npwr8");
double npwr9 = getval("npwr9");
double npwr10 = getval("npwr10");
double npwr11 = getval("npwr11");
double npwr12 = getval("npwr12");
double npwr13 = getval("npwr13");
double npwr14 = getval("npwr14");
double npwr15 = getval("npwr15");
double npwr16 = getval("npwr16");
double npwr17 = getval("npwr17");
double npwr18 = getval("npwr18");
double npwr19 = getval("npwr19");
double npwr20 = getval("npwr20");
double npwr21 = getval("npwr21");
double npwr22 = getval("npwr22");
double npwr23 = getval("npwr23");
double npwr24 = getval("npwr24");
double npwr25 = getval("npwr25");
double npwr26 = getval("npwr26");
double npwr27 = getval("npwr27");
double npwr28 = getval("npwr28");
double npwr29 = getval("npwr29");
double npwr30 = getval("npwr30");
double npwr31 = getval("npwr31");

double h2pwr0 = getval("h2pwr0");
double h2pwr1 = getval("h2pwr1");
double h2pwr2 = getval("h2pwr2");
double h2pwr3 = getval("h2pwr3");
double h2pwr4 = getval("h2pwr4");
double h2pwr5 = getval("h2pwr5");
double h2pwr6 = getval("h2pwr6");
double h2pwr7 = getval("h2pwr7");
double h2pwr8 = getval("h2pwr8");
double h2pwr9 = getval("h2pwr9");
double h2pwr10 = getval("h2pwr10");
double h2pwr11 = getval("h2pwr11");
double h2pwr12 = getval("h2pwr12");
double h2pwr13 = getval("h2pwr13");
double h2pwr14 = getval("h2pwr14");
double h2pwr15 = getval("h2pwr15");
double h2pwr16 = getval("h2pwr16");
double h2pwr17 = getval("h2pwr17");
double h2pwr18 = getval("h2pwr18");
double h2pwr19 = getval("h2pwr19");
double h2pwr20 = getval("h2pwr20");
double h2pwr21 = getval("h2pwr21");
double h2pwr22 = getval("h2pwr22");
double h2pwr23 = getval("h2pwr23");
double h2pwr24 = getval("h2pwr24");
double h2pwr25 = getval("h2pwr25");
double h2pwr26 = getval("h2pwr26");
double h2pwr27 = getval("h2pwr27");
double h2pwr28 = getval("h2pwr28");
double h2pwr29 = getval("h2pwr29");
double h2pwr30 = getval("h2pwr30");
double h2pwr31 = getval("h2pwr31");

double grpwr0 = getval("grpwr0");
double grpwr1 = getval("grpwr1");
double grpwr2 = getval("grpwr2");
double grpwr3 = getval("grpwr3");
double grpwr4 = getval("grpwr4");
double grpwr5 = getval("grpwr5");
double grpwr6 = getval("grpwr6");
double grpwr7 = getval("grpwr7");
double grpwr8 = getval("grpwr8");
double grpwr9 = getval("grpwr9");
double grpwr10 = getval("grpwr10");
double grpwr11 = getval("grpwr11");
double grpwr12 = getval("grpwr12");
double grpwr13 = getval("grpwr13");
double grpwr14 = getval("grpwr14");
double grpwr15 = getval("grpwr15");
double grpwr16 = getval("grpwr16");
double grpwr17 = getval("grpwr17");
double grpwr18 = getval("grpwr18");
double grpwr19 = getval("grpwr19");
double grpwr20 = getval("grpwr20");
double grpwr21 = getval("grpwr21");
double grpwr22 = getval("grpwr22");
double grpwr23 = getval("grpwr23");
double grpwr24 = getval("grpwr24");
double grpwr25 = getval("grpwr25");
double grpwr26 = getval("grpwr26");
double grpwr27 = getval("grpwr27");
double grpwr28 = getval("grpwr28");
double grpwr29 = getval("grpwr29");
double grpwr30 = getval("grpwr30");
double grpwr31 = getval("grpwr31");

double grdel0 = getval("grdel0");
double grdel1 = getval("grdel1");
double grdel2 = getval("grdel2");
double grdel3 = getval("grdel3");
double grdel4 = getval("grdel4");
double grdel5 = getval("grdel5");
double grdel6 = getval("grdel6");
double grdel7 = getval("grdel7");
double grdel8 = getval("grdel8");
double grdel9 = getval("grdel9");
double grdel10 = getval("grdel10");
double grdel11 = getval("grdel11");
double grdel12 = getval("grdel12");
double grdel13 = getval("grdel13");
double grdel14 = getval("grdel14");
double grdel15 = getval("grdel15");
double grdel16 = getval("grdel16");
double grdel17 = getval("grdel17");
double grdel18 = getval("grdel18");
double grdel19 = getval("grdel19");
double grdel20 = getval("grdel20");
double grdel21 = getval("grdel21");
double grdel22 = getval("grdel22");
double grdel23 = getval("grdel23");
double grdel24 = getval("grdel24");
double grdel25 = getval("grdel25");
double grdel26 = getval("grdel26");
double grdel27 = getval("grdel27");
double grdel28 = getval("grdel28");
double grdel29 = getval("grdel29");
double grdel30 = getval("grdel30");
double grdel31 = getval("grdel31");

char grname0[MAXSTR];
char grname1[MAXSTR];
char grname2[MAXSTR];
char grname3[MAXSTR];
char grname4[MAXSTR];
char grname5[MAXSTR];
char grname6[MAXSTR];
char grname7[MAXSTR];
char grname8[MAXSTR];
char grname9[MAXSTR];
char grname10[MAXSTR];
char grname11[MAXSTR];
char grname12[MAXSTR];
char grname13[MAXSTR];
char grname14[MAXSTR];
char grname15[MAXSTR];
char grname16[MAXSTR];
char grname17[MAXSTR];
char grname18[MAXSTR];
char grname19[MAXSTR];
char grname20[MAXSTR];
char grname21[MAXSTR];
char grname22[MAXSTR];
char grname23[MAXSTR];
char grname24[MAXSTR];
char grname25[MAXSTR];
char grname26[MAXSTR];
char grname27[MAXSTR];
char grname28[MAXSTR];
char grname29[MAXSTR];
char grname30[MAXSTR];
char grname31[MAXSTR];

double shpwr0 = getval("shpwr0");
double shpwr1 = getval("shpwr1");
double shpwr2 = getval("shpwr2");
double shpwr3 = getval("shpwr3");
double shpwr4 = getval("shpwr4");
double shpwr5 = getval("shpwr5");
double shpwr6 = getval("shpwr6");
double shpwr7 = getval("shpwr7");
double shpwr8 = getval("shpwr8");
double shpwr9 = getval("shpwr9");
double shpwr10 = getval("shpwr10");
double shpwr11 = getval("shpwr11");
double shpwr12 = getval("shpwr12");
double shpwr13 = getval("shpwr13");
double shpwr14 = getval("shpwr14");
double shpwr15 = getval("shpwr15");
double shpwr16 = getval("shpwr16");
double shpwr17 = getval("shpwr17");
double shpwr18 = getval("shpwr18");
double shpwr19 = getval("shpwr19");
double shpwr20 = getval("shpwr20");
double shpwr21 = getval("shpwr21");
double shpwr22 = getval("shpwr22");
double shpwr23 = getval("shpwr23");
double shpwr24 = getval("shpwr24");
double shpwr25 = getval("shpwr25");
double shpwr26 = getval("shpwr26");
double shpwr27 = getval("shpwr27");
double shpwr28 = getval("shpwr28");
double shpwr29 = getval("shpwr29");
double shpwr30 = getval("shpwr30");
double shpwr31 = getval("shpwr31");

double shpul0 = getval("shpul0");
double shpul1 = getval("shpul1");
double shpul2 = getval("shpul2");
double shpul3 = getval("shpul3");
double shpul4 = getval("shpul4");
double shpul5 = getval("shpul5");
double shpul6 = getval("shpul6");
double shpul7 = getval("shpul7");
double shpul8 = getval("shpul8");
double shpul9 = getval("shpul9");
double shpul10 = getval("shpul10");
double shpul11 = getval("shpul11");
double shpul12 = getval("shpul12");
double shpul13 = getval("shpul13");
double shpul14 = getval("shpul14");
double shpul15 = getval("shpul15");
double shpul16 = getval("shpul16");
double shpul17 = getval("shpul17");
double shpul18 = getval("shpul18");
double shpul19 = getval("shpul19");
double shpul20 = getval("shpul20");
double shpul21 = getval("shpul21");
double shpul22 = getval("shpul22");
double shpul23 = getval("shpul23");
double shpul24 = getval("shpul24");
double shpul25 = getval("shpul25");
double shpul26 = getval("shpul26");
double shpul27 = getval("shpul27");
double shpul28 = getval("shpul28");
double shpul29 = getval("shpul29");
double shpul30 = getval("shpul30");
double shpul31 = getval("shpul31");

char shname0[MAXSTR];
char shname1[MAXSTR];
char shname2[MAXSTR];
char shname3[MAXSTR];
char shname4[MAXSTR];
char shname5[MAXSTR];
char shname6[MAXSTR];
char shname7[MAXSTR];
char shname8[MAXSTR];
char shname9[MAXSTR];
char shname10[MAXSTR];
char shname11[MAXSTR];
char shname12[MAXSTR];
char shname13[MAXSTR];
char shname14[MAXSTR];
char shname15[MAXSTR];
char shname16[MAXSTR];
char shname17[MAXSTR];
char shname18[MAXSTR];
char shname19[MAXSTR];
char shname20[MAXSTR];
char shname21[MAXSTR];
char shname22[MAXSTR];
char shname23[MAXSTR];
char shname24[MAXSTR];
char shname25[MAXSTR];
char shname26[MAXSTR];
char shname27[MAXSTR];
char shname28[MAXSTR];
char shname29[MAXSTR];
char shname30[MAXSTR];
char shname31[MAXSTR];

char cpdname0[MAXSTR];
char cpdname1[MAXSTR];
char cpdname2[MAXSTR];
char cpdname3[MAXSTR];
char cpdname4[MAXSTR];
char cpdname5[MAXSTR];
char cpdname6[MAXSTR];
char cpdname7[MAXSTR];
char cpdname8[MAXSTR];
char cpdname9[MAXSTR];
char cpdname10[MAXSTR];
char cpdname11[MAXSTR];
char cpdname12[MAXSTR];
char cpdname13[MAXSTR];
char cpdname14[MAXSTR];
char cpdname15[MAXSTR];
char cpdname16[MAXSTR];
char cpdname17[MAXSTR];
char cpdname18[MAXSTR];
char cpdname19[MAXSTR];
char cpdname20[MAXSTR];
char cpdname21[MAXSTR];
char cpdname22[MAXSTR];
char cpdname23[MAXSTR];
char cpdname24[MAXSTR];
char cpdname25[MAXSTR];
char cpdname26[MAXSTR];
char cpdname27[MAXSTR];
char cpdname28[MAXSTR];
char cpdname29[MAXSTR];
char cpdname30[MAXSTR];
char cpdname31[MAXSTR];

double cpdpwr0 = getval("cpdpwr0");
double cpdpwr1 = getval("cpdpwr1");
double cpdpwr2 = getval("cpdpwr2");
double cpdpwr3 = getval("cpdpwr3");
double cpdpwr4 = getval("cpdpwr4");
double cpdpwr5 = getval("cpdpwr5");
double cpdpwr6 = getval("cpdpwr6");
double cpdpwr7 = getval("cpdpwr7");
double cpdpwr8 = getval("cpdpwr8");
double cpdpwr9 = getval("cpdpwr9");
double cpdpwr10 = getval("cpdpwr10");
double cpdpwr11 = getval("cpdpwr11");
double cpdpwr12 = getval("cpdpwr12");
double cpdpwr13 = getval("cpdpwr13");
double cpdpwr14 = getval("cpdpwr14");
double cpdpwr15 = getval("cpdpwr15");
double cpdpwr16 = getval("cpdpwr16");
double cpdpwr17 = getval("cpdpwr17");
double cpdpwr18 = getval("cpdpwr18");
double cpdpwr19 = getval("cpdpwr19");
double cpdpwr20 = getval("cpdpwr20");
double cpdpwr21 = getval("cpdpwr21");
double cpdpwr22 = getval("cpdpwr22");
double cpdpwr23 = getval("cpdpwr23");
double cpdpwr24 = getval("cpdpwr24");
double cpdpwr25 = getval("cpdpwr25");
double cpdpwr26 = getval("cpdpwr26");
double cpdpwr27 = getval("cpdpwr27");
double cpdpwr28 = getval("cpdpwr28");
double cpdpwr29 = getval("cpdpwr29");
double cpdpwr30 = getval("cpdpwr30");
double cpdpwr31 = getval("cpdpwr31");

double cpdp900 = getval("cpdp900");
double cpdp901 = getval("cpdp901");
double cpdp902 = getval("cpdp902");
double cpdp903 = getval("cpdp903");
double cpdp904 = getval("cpdp904");
double cpdp905 = getval("cpdp905");
double cpdp906 = getval("cpdp906");
double cpdp907 = getval("cpdp907");
double cpdp908 = getval("cpdp908");
double cpdp909 = getval("cpdp909");
double cpdp9010 = getval("cpdp9010");
double cpdp9011 = getval("cpdp9011");
double cpdp9012 = getval("cpdp9012");
double cpdp9013 = getval("cpdp9013");
double cpdp9014 = getval("cpdp9014");
double cpdp9015 = getval("cpdp9015");
double cpdp9016 = getval("cpdp9016");
double cpdp9017 = getval("cpdp9017");
double cpdp9018 = getval("cpdp9018");
double cpdp9019 = getval("cpdp9019");
double cpdp9020 = getval("cpdp9020");
double cpdp9021 = getval("cpdp9021");
double cpdp9022 = getval("cpdp9022");
double cpdp9023 = getval("cpdp9023");
double cpdp9024 = getval("cpdp9024");
double cpdp9025 = getval("cpdp9025");
double cpdp9026 = getval("cpdp9026");
double cpdp9027 = getval("cpdp9027");
double cpdp9028 = getval("cpdp9028");
double cpdp9029 = getval("cpdp9029");
double cpdp9030 = getval("cpdp9030");
double cpdp9031 = getval("cpdp9031");

double cpdres0 = getval("cpdres0");
double cpdres1 = getval("cpdres1");
double cpdres2 = getval("cpdres2");
double cpdres3 = getval("cpdres3");
double cpdres4 = getval("cpdres4");
double cpdres5 = getval("cpdres5");
double cpdres6 = getval("cpdres6");
double cpdres7 = getval("cpdres7");
double cpdres8 = getval("cpdres8");
double cpdres9 = getval("cpdres9");
double cpdres10 = getval("cpdres10");
double cpdres11 = getval("cpdres11");
double cpdres12 = getval("cpdres12");
double cpdres13 = getval("cpdres13");
double cpdres14 = getval("cpdres14");
double cpdres15 = getval("cpdres15");
double cpdres16 = getval("cpdres16");
double cpdres17 = getval("cpdres17");
double cpdres18 = getval("cpdres18");
double cpdres19 = getval("cpdres19");
double cpdres20 = getval("cpdres20");
double cpdres21 = getval("cpdres21");
double cpdres22 = getval("cpdres22");
double cpdres23 = getval("cpdres23");
double cpdres24 = getval("cpdres24");
double cpdres25 = getval("cpdres25");
double cpdres26 = getval("cpdres26");
double cpdres27 = getval("cpdres27");
double cpdres28 = getval("cpdres28");
double cpdres29 = getval("cpdres29");
double cpdres30 = getval("cpdres30");
double cpdres31 = getval("cpdres31");

double phcor0 = getval("phcor0");
double phcor1 = getval("phcor1");
double phcor2 = getval("phcor2");
double phcor3 = getval("phcor3");
double phcor4 = getval("phcor4");
double phcor5 = getval("phcor5");
double phcor6 = getval("phcor6");
double phcor7 = getval("phcor7");
double phcor8 = getval("phcor8");
double phcor9 = getval("phcor9");
double phcor10 = getval("phcor10");
double phcor11 = getval("phcor11");
double phcor12 = getval("phcor12");
double phcor13 = getval("phcor13");
double phcor14 = getval("phcor14");
double phcor15 = getval("phcor15");
double phcor16 = getval("phcor16");
double phcor17 = getval("phcor17");
double phcor18 = getval("phcor18");
double phcor19 = getval("phcor19");
double phcor20 = getval("phcor20");
double phcor21 = getval("phcor21");
double phcor22 = getval("phcor22");
double phcor23 = getval("phcor23");
double phcor24 = getval("phcor24");
double phcor25 = getval("phcor25");
double phcor26 = getval("phcor26");
double phcor27 = getval("phcor27");
double phcor28 = getval("phcor28");
double phcor29 = getval("phcor29");
double phcor30 = getval("phcor30");
double phcor31 = getval("phcor31");

char flg0[MAXSTR];
char flg1[MAXSTR];
char flg2[MAXSTR];
char flg3[MAXSTR];
char flg4[MAXSTR];
char flg5[MAXSTR];
char flg6[MAXSTR];
char flg7[MAXSTR];
char flg8[MAXSTR];
char flg9[MAXSTR];
char flg10[MAXSTR];
char flg11[MAXSTR];
char flg12[MAXSTR];
char flg13[MAXSTR];
char flg14[MAXSTR];
char flg15[MAXSTR];
char flg16[MAXSTR];
char flg17[MAXSTR];
char flg18[MAXSTR];
char flg19[MAXSTR];
char flg20[MAXSTR];
char flg21[MAXSTR];
char flg22[MAXSTR];
char flg23[MAXSTR];
char flg24[MAXSTR];
char flg25[MAXSTR];
char flg26[MAXSTR];
char flg27[MAXSTR];
char flg28[MAXSTR];
char flg29[MAXSTR];
char flg30[MAXSTR];
char flg31[MAXSTR];

int loop0 = getval("loop0");
int loop1 = getval("loop1");
int loop2 = getval("loop2");
int loop3 = getval("loop3");
int loop4 = getval("loop4");
int loop5 = getval("loop5");
int loop6 = getval("loop6");
int loop7 = getval("loop7");
int loop8 = getval("loop8");
int loop9 = getval("loop9");
int loop10 = getval("loop10");
int loop11 = getval("loop11");
int loop12 = getval("loop12");
int loop13 = getval("loop13");
int loop14 = getval("loop14");
int loop15 = getval("loop15");
int loop16 = getval("loop16");
int loop17 = getval("loop17");
int loop18 = getval("loop18");
int loop19 = getval("loop19");
int loop20 = getval("loop20");
int loop21 = getval("loop21");
int loop22 = getval("loop22");
int loop23 = getval("loop23");
int loop24 = getval("loop24");
int loop25 = getval("loop25");
int loop26 = getval("loop26");
int loop27 = getval("loop27");
int loop28 = getval("loop28");
int loop29 = getval("loop29");
int loop30 = getval("loop30");
int loop31 = getval("loop31");

double tofs0 = getval("tofs0");
double tofs1 = getval("tofs1");
double tofs2 = getval("tofs2");
double tofs3 = getval("tofs3");
double tofs4 = getval("tofs4");
double tofs5 = getval("tofs5");
double tofs6 = getval("tofs6");
double tofs7 = getval("tofs7");
double tofs8 = getval("tofs8");
double tofs9 = getval("tofs9");

double dofs0 = getval("dofs0");
double dofs1 = getval("dofs1");
double dofs2 = getval("dofs2");
double dofs3 = getval("dofs3");
double dofs4 = getval("dofs4");
double dofs5 = getval("dofs5");
double dofs6 = getval("dofs6");
double dofs7 = getval("dofs7");
double dofs8 = getval("dofs8");
double dofs9 = getval("dofs9");

double dof2s0 = getval("dof2s0");
double dof2s1 = getval("dof2s1");
double dof2s2 = getval("dof2s2");
double dof2s3 = getval("dof2s3");
double dof2s4 = getval("dof2s4");
double dof2s5 = getval("dof2s5");
double dof2s6 = getval("dof2s6");
double dof2s7 = getval("dof2s7");
double dof2s8 = getval("dof2s8");
double dof2s9 = getval("dof2s9");

double dof3s0 = getval("dof3s0");
double dof3s1 = getval("dof3s1");
double dof3s2 = getval("dof3s2");
double dof3s3 = getval("dof3s3");
double dof3s4 = getval("dof3s4");
double dof3s5 = getval("dof3s5");
double dof3s6 = getval("dof3s6");
double dof3s7 = getval("dof3s7");
double dof3s8 = getval("dof3s8");
double dof3s9 = getval("dof3s9");

double p90h = getval("p90h");

double p180h = getval("p180h");

double p90c = getval("p90c");

double p180c = getval("p180c");

double p90n = getval("p90n");

double p180n = getval("p180n");

double p90h2 = getval("p90h2");

double p180h2 = getval("p180h2");

char passwd[MAXSTR];

del0 += 0.0;
del1 += 0.0;
del2 += 0.0;
del3 += 0.0;
del4 += 0.0;
del5 += 0.0;
del6 += 0.0;
del7 += 0.0;
del8 += 0.0;
del9 += 0.0;
del10 += 0.0;
del11 += 0.0;
del12 += 0.0;
del13 += 0.0;
del14 += 0.0;
del15 += 0.0;
del16 += 0.0;
del17 += 0.0;
del18 += 0.0;
del19 += 0.0;
del20 += 0.0;
del21 += 0.0;
del22 += 0.0;
del23 += 0.0;
del24 += 0.0;
del25 += 0.0;
del26 += 0.0;
del27 += 0.0;
del28 += 0.0;
del29 += 0.0;
del30 += 0.0;
del31 += 0.0;

pul0 += 0.0;
pul1 += 0.0;
pul2 += 0.0;
pul3 += 0.0;
pul4 += 0.0;
pul5 += 0.0;
pul6 += 0.0;
pul7 += 0.0;
pul8 += 0.0;
pul9 += 0.0;
pul10 += 0.0;
pul11 += 0.0;
pul12 += 0.0;
pul13 += 0.0;
pul14 += 0.0;
pul15 += 0.0;
pul16 += 0.0;
pul17 += 0.0;
pul18 += 0.0;
pul19 += 0.0;
pul20 += 0.0;
pul21 += 0.0;
pul22 += 0.0;
pul23 += 0.0;
pul24 += 0.0;
pul25 += 0.0;
pul26 += 0.0;
pul27 += 0.0;
pul28 += 0.0;
pul29 += 0.0;
pul30 += 0.0;
pul31 += 0.0;

hpwr0 += 0.0;
hpwr1 += 0.0;
hpwr2 += 0.0;
hpwr3 += 0.0;
hpwr4 += 0.0;
hpwr5 += 0.0;
hpwr6 += 0.0;
hpwr7 += 0.0;
hpwr8 += 0.0;
hpwr9 += 0.0;
hpwr10 += 0.0;
hpwr11 += 0.0;
hpwr12 += 0.0;
hpwr13 += 0.0;
hpwr14 += 0.0;
hpwr15 += 0.0;
hpwr16 += 0.0;
hpwr17 += 0.0;
hpwr18 += 0.0;
hpwr19 += 0.0;
hpwr20 += 0.0;
hpwr21 += 0.0;
hpwr22 += 0.0;
hpwr23 += 0.0;
hpwr24 += 0.0;
hpwr25 += 0.0;
hpwr26 += 0.0;
hpwr27 += 0.0;
hpwr28 += 0.0;
hpwr29 += 0.0;
hpwr30 += 0.0;
hpwr31 += 0.0;

cpwr0 += 0.0;
cpwr1 += 0.0;
cpwr2 += 0.0;
cpwr3 += 0.0;
cpwr4 += 0.0;
cpwr5 += 0.0;
cpwr6 += 0.0;
cpwr7 += 0.0;
cpwr8 += 0.0;
cpwr9 += 0.0;
cpwr10 += 0.0;
cpwr11 += 0.0;
cpwr12 += 0.0;
cpwr13 += 0.0;
cpwr14 += 0.0;
cpwr15 += 0.0;
cpwr16 += 0.0;
cpwr17 += 0.0;
cpwr18 += 0.0;
cpwr19 += 0.0;
cpwr20 += 0.0;
cpwr21 += 0.0;
cpwr22 += 0.0;
cpwr23 += 0.0;
cpwr24 += 0.0;
cpwr25 += 0.0;
cpwr26 += 0.0;
cpwr27 += 0.0;
cpwr28 += 0.0;
cpwr29 += 0.0;
cpwr30 += 0.0;
cpwr31 += 0.0;

npwr0 += 0.0;
npwr1 += 0.0;
npwr2 += 0.0;
npwr3 += 0.0;
npwr4 += 0.0;
npwr5 += 0.0;
npwr6 += 0.0;
npwr7 += 0.0;
npwr8 += 0.0;
npwr9 += 0.0;
npwr10 += 0.0;
npwr11 += 0.0;
npwr12 += 0.0;
npwr13 += 0.0;
npwr14 += 0.0;
npwr15 += 0.0;
npwr16 += 0.0;
npwr17 += 0.0;
npwr18 += 0.0;
npwr19 += 0.0;
npwr20 += 0.0;
npwr21 += 0.0;
npwr22 += 0.0;
npwr23 += 0.0;
npwr24 += 0.0;
npwr25 += 0.0;
npwr26 += 0.0;
npwr27 += 0.0;
npwr28 += 0.0;
npwr29 += 0.0;
npwr30 += 0.0;
npwr31 += 0.0;

h2pwr0 += 0.0;
h2pwr1 += 0.0;
h2pwr2 += 0.0;
h2pwr3 += 0.0;
h2pwr4 += 0.0;
h2pwr5 += 0.0;
h2pwr6 += 0.0;
h2pwr7 += 0.0;
h2pwr8 += 0.0;
h2pwr9 += 0.0;
h2pwr10 += 0.0;
h2pwr11 += 0.0;
h2pwr12 += 0.0;
h2pwr13 += 0.0;
h2pwr14 += 0.0;
h2pwr15 += 0.0;
h2pwr16 += 0.0;
h2pwr17 += 0.0;
h2pwr18 += 0.0;
h2pwr19 += 0.0;
h2pwr20 += 0.0;
h2pwr21 += 0.0;
h2pwr22 += 0.0;
h2pwr23 += 0.0;
h2pwr24 += 0.0;
h2pwr25 += 0.0;
h2pwr26 += 0.0;
h2pwr27 += 0.0;
h2pwr28 += 0.0;
h2pwr29 += 0.0;
h2pwr30 += 0.0;
h2pwr31 += 0.0;

grpwr0 += 0.0;
grpwr1 += 0.0;
grpwr2 += 0.0;
grpwr3 += 0.0;
grpwr4 += 0.0;
grpwr5 += 0.0;
grpwr6 += 0.0;
grpwr7 += 0.0;
grpwr8 += 0.0;
grpwr9 += 0.0;
grpwr10 += 0.0;
grpwr11 += 0.0;
grpwr12 += 0.0;
grpwr13 += 0.0;
grpwr14 += 0.0;
grpwr15 += 0.0;
grpwr16 += 0.0;
grpwr17 += 0.0;
grpwr18 += 0.0;
grpwr19 += 0.0;
grpwr20 += 0.0;
grpwr21 += 0.0;
grpwr22 += 0.0;
grpwr23 += 0.0;
grpwr24 += 0.0;
grpwr25 += 0.0;
grpwr26 += 0.0;
grpwr27 += 0.0;
grpwr28 += 0.0;
grpwr29 += 0.0;
grpwr30 += 0.0;
grpwr31 += 0.0;

grdel0 += 0.0;
grdel1 += 0.0;
grdel2 += 0.0;
grdel3 += 0.0;
grdel4 += 0.0;
grdel5 += 0.0;
grdel6 += 0.0;
grdel7 += 0.0;
grdel8 += 0.0;
grdel9 += 0.0;
grdel10 += 0.0;
grdel11 += 0.0;
grdel12 += 0.0;
grdel13 += 0.0;
grdel14 += 0.0;
grdel15 += 0.0;
grdel16 += 0.0;
grdel17 += 0.0;
grdel18 += 0.0;
grdel19 += 0.0;
grdel20 += 0.0;
grdel21 += 0.0;
grdel22 += 0.0;
grdel23 += 0.0;
grdel24 += 0.0;
grdel25 += 0.0;
grdel26 += 0.0;
grdel27 += 0.0;
grdel28 += 0.0;
grdel29 += 0.0;
grdel30 += 0.0;
grdel31 += 0.0;

getstr("grname0",grname0);if(*grname0 == 0);
getstr("grname1",grname1);if(*grname1 == 0);
getstr("grname2",grname2);if(*grname2 == 0);
getstr("grname3",grname3);if(*grname3 == 0);
getstr("grname4",grname4);if(*grname4 == 0);
getstr("grname5",grname5);if(*grname5 == 0);
getstr("grname6",grname6);if(*grname6 == 0);
getstr("grname7",grname7);if(*grname7 == 0);
getstr("grname8",grname8);if(*grname8 == 0);
getstr("grname9",grname9);if(*grname9 == 0);
getstr("grname10",grname10);if(*grname10 == 0);
getstr("grname11",grname11);if(*grname11 == 0);
getstr("grname12",grname12);if(*grname12 == 0);
getstr("grname13",grname13);if(*grname13 == 0);
getstr("grname14",grname14);if(*grname14 == 0);
getstr("grname15",grname15);if(*grname15 == 0);
getstr("grname16",grname16);if(*grname16 == 0);
getstr("grname17",grname17);if(*grname17 == 0);
getstr("grname18",grname18);if(*grname18 == 0);
getstr("grname19",grname19);if(*grname19 == 0);
getstr("grname20",grname20);if(*grname20 == 0);
getstr("grname21",grname21);if(*grname21 == 0);
getstr("grname22",grname22);if(*grname22 == 0);
getstr("grname23",grname23);if(*grname23 == 0);
getstr("grname24",grname24);if(*grname24 == 0);
getstr("grname25",grname25);if(*grname25 == 0);
getstr("grname26",grname26);if(*grname26 == 0);
getstr("grname27",grname27);if(*grname27 == 0);
getstr("grname28",grname28);if(*grname28 == 0);
getstr("grname29",grname29);if(*grname29 == 0);
getstr("grname30",grname30);if(*grname30 == 0);
getstr("grname31",grname31);if(*grname31 == 0);

shpwr0 += 0.0;
shpwr1 += 0.0;
shpwr2 += 0.0;
shpwr3 += 0.0;
shpwr4 += 0.0;
shpwr5 += 0.0;
shpwr6 += 0.0;
shpwr7 += 0.0;
shpwr8 += 0.0;
shpwr9 += 0.0;
shpwr10 += 0.0;
shpwr11 += 0.0;
shpwr12 += 0.0;
shpwr13 += 0.0;
shpwr14 += 0.0;
shpwr15 += 0.0;
shpwr16 += 0.0;
shpwr17 += 0.0;
shpwr18 += 0.0;
shpwr19 += 0.0;
shpwr20 += 0.0;
shpwr21 += 0.0;
shpwr22 += 0.0;
shpwr23 += 0.0;
shpwr24 += 0.0;
shpwr25 += 0.0;
shpwr26 += 0.0;
shpwr27 += 0.0;
shpwr28 += 0.0;
shpwr29 += 0.0;
shpwr30 += 0.0;
shpwr31 += 0.0;

shpul0 += 0.0;
shpul1 += 0.0;
shpul2 += 0.0;
shpul3 += 0.0;
shpul4 += 0.0;
shpul5 += 0.0;
shpul6 += 0.0;
shpul7 += 0.0;
shpul8 += 0.0;
shpul9 += 0.0;
shpul10 += 0.0;
shpul11 += 0.0;
shpul12 += 0.0;
shpul13 += 0.0;
shpul14 += 0.0;
shpul15 += 0.0;
shpul16 += 0.0;
shpul17 += 0.0;
shpul18 += 0.0;
shpul19 += 0.0;
shpul20 += 0.0;
shpul21 += 0.0;
shpul22 += 0.0;
shpul23 += 0.0;
shpul24 += 0.0;
shpul25 += 0.0;
shpul26 += 0.0;
shpul27 += 0.0;
shpul28 += 0.0;
shpul29 += 0.0;
shpul30 += 0.0;
shpul31 += 0.0;

getstr("shname0",shname0);if(*shname0 == 0);
getstr("shname1",shname1);if(*shname1 == 0);
getstr("shname2",shname2);if(*shname2 == 0);
getstr("shname3",shname3);if(*shname3 == 0);
getstr("shname4",shname4);if(*shname4 == 0);
getstr("shname5",shname5);if(*shname5 == 0);
getstr("shname6",shname6);if(*shname6 == 0);
getstr("shname7",shname7);if(*shname7 == 0);
getstr("shname8",shname8);if(*shname8 == 0);
getstr("shname9",shname9);if(*shname9 == 0);
getstr("shname10",shname10);if(*shname10 == 0);
getstr("shname11",shname11);if(*shname11 == 0);
getstr("shname12",shname12);if(*shname12 == 0);
getstr("shname13",shname13);if(*shname13 == 0);
getstr("shname14",shname14);if(*shname14 == 0);
getstr("shname15",shname15);if(*shname15 == 0);
getstr("shname16",shname16);if(*shname16 == 0);
getstr("shname17",shname17);if(*shname17 == 0);
getstr("shname18",shname18);if(*shname18 == 0);
getstr("shname19",shname19);if(*shname19 == 0);
getstr("shname20",shname20);if(*shname20 == 0);
getstr("shname21",shname21);if(*shname21 == 0);
getstr("shname22",shname22);if(*shname22 == 0);
getstr("shname23",shname23);if(*shname23 == 0);
getstr("shname24",shname24);if(*shname24 == 0);
getstr("shname25",shname25);if(*shname25 == 0);
getstr("shname26",shname26);if(*shname26 == 0);
getstr("shname27",shname27);if(*shname27 == 0);
getstr("shname28",shname28);if(*shname28 == 0);
getstr("shname29",shname29);if(*shname29 == 0);
getstr("shname30",shname30);if(*shname30 == 0);
getstr("shname31",shname31);if(*shname31 == 0);

getstr("cpdname0",cpdname0);if(*cpdname0 == 0);
getstr("cpdname1",cpdname1);if(*cpdname1 == 0);
getstr("cpdname2",cpdname2);if(*cpdname2 == 0);
getstr("cpdname3",cpdname3);if(*cpdname3 == 0);
getstr("cpdname4",cpdname4);if(*cpdname4 == 0);
getstr("cpdname5",cpdname5);if(*cpdname5 == 0);
getstr("cpdname6",cpdname6);if(*cpdname6 == 0);
getstr("cpdname7",cpdname7);if(*cpdname7 == 0);
getstr("cpdname8",cpdname8);if(*cpdname8 == 0);
getstr("cpdname9",cpdname9);if(*cpdname9 == 0);
getstr("cpdname10",cpdname10);if(*cpdname10 == 0);
getstr("cpdname11",cpdname11);if(*cpdname11 == 0);
getstr("cpdname12",cpdname12);if(*cpdname12 == 0);
getstr("cpdname13",cpdname13);if(*cpdname13 == 0);
getstr("cpdname14",cpdname14);if(*cpdname14 == 0);
getstr("cpdname15",cpdname15);if(*cpdname15 == 0);
getstr("cpdname16",cpdname16);if(*cpdname16 == 0);
getstr("cpdname17",cpdname17);if(*cpdname17 == 0);
getstr("cpdname18",cpdname18);if(*cpdname18 == 0);
getstr("cpdname19",cpdname19);if(*cpdname19 == 0);
getstr("cpdname20",cpdname20);if(*cpdname20 == 0);
getstr("cpdname21",cpdname21);if(*cpdname21 == 0);
getstr("cpdname22",cpdname22);if(*cpdname22 == 0);
getstr("cpdname23",cpdname23);if(*cpdname23 == 0);
getstr("cpdname24",cpdname24);if(*cpdname24 == 0);
getstr("cpdname25",cpdname25);if(*cpdname25 == 0);
getstr("cpdname26",cpdname26);if(*cpdname26 == 0);
getstr("cpdname27",cpdname27);if(*cpdname27 == 0);
getstr("cpdname28",cpdname28);if(*cpdname28 == 0);
getstr("cpdname29",cpdname29);if(*cpdname29 == 0);
getstr("cpdname30",cpdname30);if(*cpdname30 == 0);
getstr("cpdname31",cpdname31);if(*cpdname31 == 0);

cpdpwr0 += 0.0;
cpdpwr1 += 0.0;
cpdpwr2 += 0.0;
cpdpwr3 += 0.0;
cpdpwr4 += 0.0;
cpdpwr5 += 0.0;
cpdpwr6 += 0.0;
cpdpwr7 += 0.0;
cpdpwr8 += 0.0;
cpdpwr9 += 0.0;
cpdpwr10 += 0.0;
cpdpwr11 += 0.0;
cpdpwr12 += 0.0;
cpdpwr13 += 0.0;
cpdpwr14 += 0.0;
cpdpwr15 += 0.0;
cpdpwr16 += 0.0;
cpdpwr17 += 0.0;
cpdpwr18 += 0.0;
cpdpwr19 += 0.0;
cpdpwr20 += 0.0;
cpdpwr21 += 0.0;
cpdpwr22 += 0.0;
cpdpwr23 += 0.0;
cpdpwr24 += 0.0;
cpdpwr25 += 0.0;
cpdpwr26 += 0.0;
cpdpwr27 += 0.0;
cpdpwr28 += 0.0;
cpdpwr29 += 0.0;
cpdpwr30 += 0.0;
cpdpwr31 += 0.0;

cpdp900 += 0.0;
cpdp901 += 0.0;
cpdp902 += 0.0;
cpdp903 += 0.0;
cpdp904 += 0.0;
cpdp905 += 0.0;
cpdp906 += 0.0;
cpdp907 += 0.0;
cpdp908 += 0.0;
cpdp909 += 0.0;
cpdp9010 += 0.0;
cpdp9011 += 0.0;
cpdp9012 += 0.0;
cpdp9013 += 0.0;
cpdp9014 += 0.0;
cpdp9015 += 0.0;
cpdp9016 += 0.0;
cpdp9017 += 0.0;
cpdp9018 += 0.0;
cpdp9019 += 0.0;
cpdp9020 += 0.0;
cpdp9021 += 0.0;
cpdp9022 += 0.0;
cpdp9023 += 0.0;
cpdp9024 += 0.0;
cpdp9025 += 0.0;
cpdp9026 += 0.0;
cpdp9027 += 0.0;
cpdp9028 += 0.0;
cpdp9029 += 0.0;
cpdp9030 += 0.0;
cpdp9031 += 0.0;

cpdres0 += 0.0;
cpdres1 += 0.0;
cpdres2 += 0.0;
cpdres3 += 0.0;
cpdres4 += 0.0;
cpdres5 += 0.0;
cpdres6 += 0.0;
cpdres7 += 0.0;
cpdres8 += 0.0;
cpdres9 += 0.0;
cpdres10 += 0.0;
cpdres11 += 0.0;
cpdres12 += 0.0;
cpdres13 += 0.0;
cpdres14 += 0.0;
cpdres15 += 0.0;
cpdres16 += 0.0;
cpdres17 += 0.0;
cpdres18 += 0.0;
cpdres19 += 0.0;
cpdres20 += 0.0;
cpdres21 += 0.0;
cpdres22 += 0.0;
cpdres23 += 0.0;
cpdres24 += 0.0;
cpdres25 += 0.0;
cpdres26 += 0.0;
cpdres27 += 0.0;
cpdres28 += 0.0;
cpdres29 += 0.0;
cpdres30 += 0.0;
cpdres31 += 0.0;

phcor0 += 0.0;
phcor1 += 0.0;
phcor2 += 0.0;
phcor3 += 0.0;
phcor4 += 0.0;
phcor5 += 0.0;
phcor6 += 0.0;
phcor7 += 0.0;
phcor8 += 0.0;
phcor9 += 0.0;
phcor10 += 0.0;
phcor11 += 0.0;
phcor12 += 0.0;
phcor13 += 0.0;
phcor14 += 0.0;
phcor15 += 0.0;
phcor16 += 0.0;
phcor17 += 0.0;
phcor18 += 0.0;
phcor19 += 0.0;
phcor20 += 0.0;
phcor21 += 0.0;
phcor22 += 0.0;
phcor23 += 0.0;
phcor24 += 0.0;
phcor25 += 0.0;
phcor26 += 0.0;
phcor27 += 0.0;
phcor28 += 0.0;
phcor29 += 0.0;
phcor30 += 0.0;
phcor31 += 0.0;

getstr("flg0",flg0);if(*flg0 == 0);
getstr("flg1",flg1);if(*flg1 == 0);
getstr("flg2",flg2);if(*flg2 == 0);
getstr("flg3",flg3);if(*flg3 == 0);
getstr("flg4",flg4);if(*flg4 == 0);
getstr("flg5",flg5);if(*flg5 == 0);
getstr("flg6",flg6);if(*flg6 == 0);
getstr("flg7",flg7);if(*flg7 == 0);
getstr("flg8",flg8);if(*flg8 == 0);
getstr("flg9",flg9);if(*flg9 == 0);
getstr("flg10",flg10);if(*flg10 == 0);
getstr("flg11",flg11);if(*flg11 == 0);
getstr("flg12",flg12);if(*flg12 == 0);
getstr("flg13",flg13);if(*flg13 == 0);
getstr("flg14",flg14);if(*flg14 == 0);
getstr("flg15",flg15);if(*flg15 == 0);
getstr("flg16",flg16);if(*flg16 == 0);
getstr("flg17",flg17);if(*flg17 == 0);
getstr("flg18",flg18);if(*flg18 == 0);
getstr("flg19",flg19);if(*flg19 == 0);
getstr("flg20",flg20);if(*flg20 == 0);
getstr("flg21",flg21);if(*flg21 == 0);
getstr("flg22",flg22);if(*flg22 == 0);
getstr("flg23",flg23);if(*flg23 == 0);
getstr("flg24",flg24);if(*flg24 == 0);
getstr("flg25",flg25);if(*flg25 == 0);
getstr("flg26",flg26);if(*flg26 == 0);
getstr("flg27",flg27);if(*flg27 == 0);
getstr("flg28",flg28);if(*flg28 == 0);
getstr("flg29",flg29);if(*flg29 == 0);
getstr("flg30",flg30);if(*flg30 == 0);
getstr("flg31",flg31);if(*flg31 == 0);

loop0 += 0;
loop1 += 0;
loop2 += 0;
loop3 += 0;
loop4 += 0;
loop5 += 0;
loop6 += 0;
loop7 += 0;
loop8 += 0;
loop9 += 0;
loop10 += 0;
loop11 += 0;
loop12 += 0;
loop13 += 0;
loop14 += 0;
loop15 += 0;
loop16 += 0;
loop17 += 0;
loop18 += 0;
loop19 += 0;
loop20 += 0;
loop21 += 0;
loop22 += 0;
loop23 += 0;
loop24 += 0;
loop25 += 0;
loop26 += 0;
loop27 += 0;
loop28 += 0;
loop29 += 0;
loop30 += 0;
loop31 += 0;

tofs0 += 0.0;
tofs1 += 0.0;
tofs2 += 0.0;
tofs3 += 0.0;
tofs4 += 0.0;
tofs5 += 0.0;
tofs6 += 0.0;
tofs7 += 0.0;
tofs8 += 0.0;
tofs9 += 0.0;

dofs0 += 0.0;
dofs1 += 0.0;
dofs2 += 0.0;
dofs3 += 0.0;
dofs4 += 0.0;
dofs5 += 0.0;
dofs6 += 0.0;
dofs7 += 0.0;
dofs8 += 0.0;
dofs9 += 0.0;

dof2s0 += 0.0;
dof2s1 += 0.0;
dof2s2 += 0.0;
dof2s3 += 0.0;
dof2s4 += 0.0;
dof2s5 += 0.0;
dof2s6 += 0.0;
dof2s7 += 0.0;
dof2s8 += 0.0;
dof2s9 += 0.0;

dof3s0 += 0.0;
dof3s1 += 0.0;
dof3s2 += 0.0;
dof3s3 += 0.0;
dof3s4 += 0.0;
dof3s5 += 0.0;
dof3s6 += 0.0;
dof3s7 += 0.0;
dof3s8 += 0.0;
dof3s9 += 0.0;

p90h += 0.0;

p180h += 0.0;

p90c += 0.0;

p180c += 0.0;

p90n += 0.0;

p180n += 0.0;

p90h2 += 0.0;

p180h2 += 0.0;

getstr("passwd",passwd);if(*passwd == 0);

t1_counter = 0;
t2_counter = 0;
t3_counter = 0;
tau1 = 0.0;
tau2 = 0.0;
tau3 = 0.0;

/* end of include header file */