void IOList( void ) {
//================
// Process the input/output list.
GStartIO();
if( CITNode->link != NULL ) {
if( RecNOpn() && RecNextOpr( OPR_TRM ) ) {
AdvanceITPtr(); // WRITE(6,3)
} else if( Already( IO_NAMELIST ) ) {
Error( IL_NO_IOLIST );
}
for(;;) {
if( CITNode->link == NULL ) break;
ProcessList();
}
}
GStopIO();
}
static void DumpDataSets( int num, itnode *node ) {
//=====================================================
// Dump the constants for data initialization.
itnode *rpt;
GStopIO();
CITNode = node;
GBegDList();
while( --num >= 0 ) {
for(;;) {
AdvanceITPtr();
if( RecDiv() ) {
break;
}
}
for(;;) {
if( RecNextOpr( OPR_MUL ) ) {
rpt = CITNode;
AdvanceITPtr();
} else {
rpt = NULL;
}
if( RecNOpn() ) { // jump over optional sign.
AdvanceITPtr();
}
GDataItem( rpt );
AdvanceITPtr();
if( RecDiv() ) {
break;
}
}
GEndDSet();
}
GEndDList();
}
