126 if(
sizeof(int16) != 2 ||
sizeof(uint16) != 2 ||
sizeof(int32) != 4 ||
sizeof(uint32) != 4 )
137 fprintf(
ioQQQ,
" Something is wrong with the double precision. Use /g_floating on a VAX\n" );
146 called.lgTalkIsOK =
cpu.i().lgMPI_talk();
148 called.lgTalkForcedOff =
false;
154 grid.nGridCommands = 0;
158 grid.lgOutputTypeOn[i] =
false;
181 input.lgUnderscoreFound =
false;
182 input.lgBracketFound =
false;
185 for( i=0; i <
NKRD; i++ )
187 strcpy(
input.chCardSav[i],
"error! - no line image input" );
204 enum {DEBUG_LOC=
false};
206 fprintf(
ioQQQ,
" cdExit called\n");
214 if(
grid.lgGrid &&
cpu.i().lgMPISingleRankMode() )
NORETURN void TotalInsanity(void)
#define DEBUG_ENTRY(funcname)
void cdInput(const char *filename, const char *mode)
void cdOutput(const char *filename, const char *mode)
void cdPrepareExit(exit_type exit_status)
const int NUM_OUTPUT_TYPES
struct t_tag_LineSv LinSv
void CloseSaveFiles(bool lgFinal)
void SaveGrid(FILE *pnunit, exit_type status)