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(); }