| 44 |
|
#define G_EST 23 |
| 45 |
|
#define G_USERF 24 |
| 46 |
|
#define G_TARGETPRESSURE 25 |
| 47 |
+ |
#define G_QMASS 26 |
| 48 |
+ |
#define G_TAURELAX 27 |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
Globals::Globals(){ |
| 84 |
|
addHash( "electrostaticSkinThickness", G_EST ); |
| 85 |
|
addHash( "useReactionField", G_USERF ); |
| 86 |
|
addHash( "targetPressure", G_TARGETPRESSURE); |
| 87 |
+ |
addHash( "qMass", G_QMASS); |
| 88 |
+ |
addHash( "tauRelax", G_TAURELAX); |
| 89 |
|
|
| 90 |
|
// define some default values |
| 91 |
|
|
| 117 |
|
have_tempSet = 0; |
| 118 |
|
have_est = 0; |
| 119 |
|
have_target_pressure =0; |
| 120 |
+ |
have_q_mass = 0; |
| 121 |
+ |
have_tau_relax = 0; |
| 122 |
|
} |
| 123 |
|
|
| 124 |
|
Globals::~Globals(){ |
| 819 |
|
default: |
| 820 |
|
the_event->err_msg = |
| 821 |
|
strdup( "Global error. targetPressure unrecognized.\n" ); |
| 822 |
+ |
return 0; |
| 823 |
+ |
break; |
| 824 |
+ |
} |
| 825 |
+ |
break; |
| 826 |
+ |
|
| 827 |
+ |
case G_QMASS: |
| 828 |
+ |
switch( the_type ){ |
| 829 |
+ |
|
| 830 |
+ |
case STRING: |
| 831 |
+ |
the_event->err_msg = |
| 832 |
+ |
strdup( "Global error. qMass is not a double or int.\n" ); |
| 833 |
+ |
return 0; |
| 834 |
+ |
break; |
| 835 |
+ |
|
| 836 |
+ |
case DOUBLE: |
| 837 |
+ |
q_mass = the_event->evt.asmt.rhs.dval; |
| 838 |
+ |
have_q_mass = 1; |
| 839 |
+ |
return 1; |
| 840 |
+ |
break; |
| 841 |
+ |
|
| 842 |
+ |
case INT: |
| 843 |
+ |
q_mass = (double)the_event->evt.asmt.rhs.ival; |
| 844 |
+ |
have_q_mass = 1; |
| 845 |
+ |
return 1; |
| 846 |
+ |
break; |
| 847 |
+ |
|
| 848 |
+ |
default: |
| 849 |
+ |
the_event->err_msg = |
| 850 |
+ |
strdup( "Global error. qMass unrecognized.\n" ); |
| 851 |
|
return 0; |
| 852 |
|
break; |
| 853 |
|
} |
| 854 |
|
break; |
| 855 |
|
|
| 856 |
+ |
case G_TAURELAX: |
| 857 |
+ |
switch( the_type ){ |
| 858 |
+ |
|
| 859 |
+ |
case STRING: |
| 860 |
+ |
the_event->err_msg = |
| 861 |
+ |
strdup( "Global error. tauRelax is not a double or int.\n" ); |
| 862 |
+ |
return 0; |
| 863 |
+ |
break; |
| 864 |
+ |
|
| 865 |
+ |
case DOUBLE: |
| 866 |
+ |
tau_relax = the_event->evt.asmt.rhs.dval; |
| 867 |
+ |
have_tau_relax = 1; |
| 868 |
+ |
return 1; |
| 869 |
+ |
break; |
| 870 |
+ |
|
| 871 |
+ |
case INT: |
| 872 |
+ |
tau_relax = (double)the_event->evt.asmt.rhs.ival; |
| 873 |
+ |
have_tau_relax = 1; |
| 874 |
+ |
return 1; |
| 875 |
+ |
break; |
| 876 |
+ |
|
| 877 |
+ |
default: |
| 878 |
+ |
the_event->err_msg = |
| 879 |
+ |
strdup( "Global error. tauRelax unrecognized.\n" ); |
| 880 |
+ |
return 0; |
| 881 |
+ |
break; |
| 882 |
+ |
} |
| 883 |
+ |
break; |
| 884 |
+ |
|
| 885 |
|
} |
| 886 |
|
} |
| 887 |
|
|