Go to the documentation of this file.
37 if(
nMatch(
"AGES",chCARD_CAPS) )
43 else if(
nMatch(
"ARRA",chCARD_CAPS) )
46 if(
nMatch(
"ONLY" , chCARD_CAPS ) )
49 if( (nelem =
GetElem(chCARD_CAPS))<0 )
51 fprintf(
ioQQQ,
"An element name must appear on this PRINT ARRAYS ONLY xx command.\n");
67 else if(
nMatch(
"CITA",chCARD_CAPS) )
70 fprintf(
ioQQQ,
"\n\nCloudy is a research project that involves the creative"
71 " efforts of many people. It should be cited as follows:\n" );
72 fprintf(
ioQQQ,
"Calculations were performed with version %s of Cloudy,"
73 " last described by %s.\n\n",
80 else if(
nMatch(
"COLU",chCARD_CAPS) &&
nMatch(
"DENS",chCARD_CAPS) )
82 if(
nMatch(
" ON ",chCARD_CAPS) )
87 else if(
nMatch(
" OFF",chCARD_CAPS) )
94 else if(
nMatch(
"VERS",chCARD_CAPS) )
97 fprintf(
ioQQQ,
"\nThis is Cloudy %s\n%s\n\n" ,
106 else if(
nMatch(
"DEPA",chCARD_CAPS) )
108 if(
nMatch(
"HE-L",chCARD_CAPS) )
118 nelem =
GetElem( chCARD_CAPS );
121 nelem =
MAX2( nelem, ipISO );
127 else if(
nMatch(
"CONS",chCARD_CAPS) )
133 else if(
nMatch(
"ERRO",chCARD_CAPS) )
139 else if(
nMatch(
"HEAT",chCARD_CAPS) )
145 else if(
nMatch(
"PATH",chCARD_CAPS) )
152 else if(
nMatch(
"POPU",chCARD_CAPS))
154 if(
nMatch(
"HE-L",chCARD_CAPS) )
164 nelem =
GetElem( chCARD_CAPS );
166 nelem =
MAX2(0,nelem);
174 fprintf(
ioQQQ,
"This iso-sequence (%s) and element (%s) are impossible.\n",
185 else if(
nMatch(
"LAST",chCARD_CAPS) )
191 else if(
nMatch(
"LINE",chCARD_CAPS) )
193 if(
nMatch(
" ALL",chCARD_CAPS) )
201 else if(
nMatch(
"CELL",chCARD_CAPS) )
213 fprintf(
ioQQQ ,
"The cell number on the PRINT LINE CELL command must be positive.\n");
218 else if(
nMatch(
"COLL",chCARD_CAPS) )
224 else if(
nMatch(
"COLU",chCARD_CAPS) )
230 if(
nMatch(
"NEAR",chCARD_CAPS) )
235 else if(
nMatch(
"EMER",chCARD_CAPS) &&
nMatch(
"GENT",chCARD_CAPS) )
241 else if(
nMatch(
"FAIN",chCARD_CAPS) && !(
nMatch(
"OPTI",chCARD_CAPS)&&
nMatch(
"DEPT",chCARD_CAPS)) )
253 if(
nMatch(
" OFF",chCARD_CAPS) )
260 " There faintest line to print must be on this line, sorry.\n" );
276 else if(
nMatch(
"FLUX",chCARD_CAPS) &&
nMatch(
"EART",chCARD_CAPS))
282 else if(
nMatch(
" H2",chCARD_CAPS) &&
nMatch(
"ELEC",chCARD_CAPS) )
289 else if(
nMatch(
"HEAT",chCARD_CAPS) )
295 else if(
nMatch(
"INWA",chCARD_CAPS) )
301 else if(
nMatch(
"OPTI",chCARD_CAPS) &&
nMatch(
"DEPT",chCARD_CAPS) )
304 if(
nMatch(
" OFF",chCARD_CAPS) )
313 if(
nMatch(
"FAIN",chCARD_CAPS) )
320 fprintf(
ioQQQ,
" There must be a number for the FAINT option. They are HEAD and ZONE. Sorry.\n" );
326 else if(
nMatch(
"PUMP",chCARD_CAPS) )
332 else if(
nMatch(
"SORT",chCARD_CAPS) )
338 if(
nMatch(
"WAVE",chCARD_CAPS) )
347 if(
nMatch(
"RANG",chCARD_CAPS) )
352 if( chCARD_CAPS[i-1] ==
'M' )
357 else if( chCARD_CAPS[i-1] ==
'C' )
364 if( chCARD_CAPS[i-1] ==
'M' )
369 else if( chCARD_CAPS[i-1] ==
'C' )
376 fprintf(
ioQQQ,
" There must be two numbers for the RANGE option, the lower and upper wavelength. Sorry.\n" );
382 fprintf(
ioQQQ,
" The lower and upper wavelength must be positive and in the correct order. Sorry.\n" );
392 else if(
nMatch(
"INTE",chCARD_CAPS) )
401 fprintf(
ioQQQ,
"I can sort by wavelength or intensity - one must be specified.\nSorry.\n" );
406 else if(
nMatch(
" SUM",chCARD_CAPS) )
411 if(
false ) fprintf(
ioQQQ,
"%.2e\n", sum);
414 else if(
nMatch(
"SURF",chCARD_CAPS) &&
nMatch(
"BRIG",chCARD_CAPS) )
419 if(
nMatch(
"ARCS",chCARD_CAPS ) )
432 fprintf(
ioQQQ,
"One of the keys should have appeared. \nPlease consult Hazy.\nSorry.\n" );
438 else if(
nMatch(
"MASE",chCARD_CAPS) )
443 else if(
nMatch(
"ONLY",chCARD_CAPS) )
445 if(
nMatch(
"ZONE",chCARD_CAPS) )
448 else if(
nMatch(
"HEAD",chCARD_CAPS) )
453 fprintf(
ioQQQ,
" There must be a keyword for the ONLY option. They are HEAD and ZONE. Sorry.\n" );
458 else if(
nMatch(
"STAR",chCARD_CAPS) )
468 " The zone on which the print is to start MUST be entered on this line. Sorry.\n" );
474 else if(
nMatch(
"CONT",chCARD_CAPS) )
478 if(
nMatch(
"BLOC",chCARD_CAPS) )
483 else if(
nMatch(
"INDI" , chCARD_CAPS ))
510 else if(
nMatch(
"COOL",chCARD_CAPS) )
523 else if(
nMatch(
"QUIE",chCARD_CAPS) || (
nMatch(
" OFF",chCARD_CAPS) &&
524 !
nMatch(
"FAIN" ,chCARD_CAPS)) )
531 else if(
nMatch(
" ON ",chCARD_CAPS) )
545 else if(
nMatch(
"SHOR",chCARD_CAPS) )
553 else if(
nMatch(
"EVER",chCARD_CAPS) )
560 fprintf(
ioQQQ,
" The number of zones to print MUST be entered on this line. Sorry.\n" );
579 fprintf(
ioQQQ,
" There MUST be a keyword on the following line. Sorry.\n" );
580 fprintf(
ioQQQ,
" The PRINT FAINT command is now the PRINT LINE FAINT command.\n" );
581 fprintf(
ioQQQ,
" %80.80s\n", chCARD_CAPS );
593 fprintf(
ioQQQ,
"\n\nPhysical constants used by Cloudy, taken from physconst.h\n");
595 fprintf(
ioQQQ,
"EE\t%.15g\n",
EE);
597 fprintf(
ioQQQ,
"PI\t%.15g\n",
PI);
611 fprintf(
ioQQQ,
"AU\t%.15g\n",
AU);
652 fprintf(
ioQQQ,
"Some other interesting sizes:\n");
653 fprintf(
ioQQQ,
"bool\t%lu\n",(
unsigned long)
sizeof(
bool));
654 fprintf(
ioQQQ,
"char\t%lu\n",(
unsigned long)
sizeof(
char));
655 fprintf(
ioQQQ,
"int\t%lu\n",(
unsigned long)
sizeof(
int));
656 fprintf(
ioQQQ,
"long int\t%lu\n",(
unsigned long)
sizeof(
long int));
657 fprintf(
ioQQQ,
"unsigned int\t%lu\n",(
unsigned long)
sizeof(
unsigned int));
659 fprintf(
ioQQQ,
"realnum\t%lu\n",(
unsigned long)
sizeof(
realnum));
660 fprintf(
ioQQQ,
"double\t%lu\n",(
unsigned long)
sizeof(
double));
661 fprintf(
ioQQQ,
"double*\t%lu\n",(
unsigned long)
sizeof(
double*));
664 fprintf(
ioQQQ,
"Some constants from float.h.\n");
666 fprintf(
ioQQQ,
"DBL_DIG \t%i\n", DBL_DIG);
667 fprintf(
ioQQQ,
"DBL_EPSILON \t%.15g\n",DBL_EPSILON);
668 fprintf(
ioQQQ,
"DBL_MANT_DIG\t%i\n",DBL_MANT_DIG);
669 fprintf(
ioQQQ,
"DBL_MAX\t%.15g\n", DBL_MAX);
670 fprintf(
ioQQQ,
"DBL_MAX_10_EXP\t%i\n", DBL_MAX_10_EXP);
671 fprintf(
ioQQQ,
"DBL_MAX_EXP\t%i\n", DBL_MAX_EXP);
672 fprintf(
ioQQQ,
"DBL_MIN\t%.15g\n", DBL_MIN);
674 fprintf(
ioQQQ,
"FLT_DIG\t%i\n", FLT_DIG);
675 fprintf(
ioQQQ,
"FLT_EPSILON\t%.15g\n", FLT_EPSILON);
676 fprintf(
ioQQQ,
"FLT_MANT_DIG\t%i\n", FLT_MANT_DIG);
677 fprintf(
ioQQQ,
"FLT_MAX\t%.15g\n", FLT_MAX);
678 fprintf(
ioQQQ,
"FLT_MAX_10_EXP\t%i\n", FLT_MAX_10_EXP);
679 fprintf(
ioQQQ,
"FLT_MAX_EXP\t%i\n", FLT_MAX_EXP);
680 fprintf(
ioQQQ,
"FLT_MIN\t%.15g\n", FLT_MIN);
682 fprintf(
ioQQQ,
"\n\n\n");
Generated for cloudy by
1.8.3.1