21 fprintf(
ioQQQ,
" PROBLEM DISASTER More than one density command was entered.\n" );
31 strcpy(
dense.chDenseLaw,
"DLW2" );
34 dense.lgDLWDepth =
true;
38 dense.lgDLWDepth =
false;
46 fprintf(
ioQQQ,
" No pairs entered - can\'t interpolate.\n Sorry.\n" );
75 for(
long i=1; i <
dense.nvals; i++ )
80 fprintf(
ioQQQ,
" Radii must be in increasing order. Sorry.\n" );
85 else if( p.
nMatch(
"WIND") )
87 strcpy(
dense.chDenseLaw,
"DLW3" );
104 for( j=0; j < 6; j++ )
107 if( j <= 2 && p.
lgEOL() )
108 p.
NoNumb(
"density law element");
114 for( j=0; j < 10; j++ )
117 if( j == 0 && p.
lgEOL() )
118 p.
NoNumb(
"density law element");
122 strcpy(
dense.chDenseLaw,
"DLW1" );
128 oss <<
"DLAW %f" << setprecision(7);
129 for( j=1; j < 10; j++ )
130 oss <<
" " <<
dense.DensityLaw[j];
#define DEBUG_ENTRY(funcname)
bool nMatch(const char *chKey) const
int strcmp(const char *s2)
NORETURN void NoNumb(const char *chDesc) const
void ParseDLaw(Parser &p)