void R_ChkIType( void ) {
//====================
// Check if type can be formatted using I format.
if( ( IOCB->typ == PT_REAL_4 ) && ( IOCB->flags & IOF_EXTEND_FORMAT ) ) {
// allow REAL variable containing integer data to be
// formatted using I edit descriptor
IOCB->typ = PT_INT_4;
}
R_ChkType( PT_INT_1, PT_INT_4 );
}
void R_ChkFType( void ) {
//====================
// Check if type can be formatted using F, E, or D format.
if( ( IOCB->typ == PT_INT_4 ) && ( IOCB->flags & IOF_EXTEND_FORMAT ) ) {
// allow INTEGER variable containing floating-point data to be
// formatted using F, E, or D edit descriptors
IOCB->typ = PT_REAL_4;
}
R_ChkType( PT_REAL_4, PT_CPLX_32 );
}
static void R_FEG( uint rep, char dummy2 ) {
//=================================
for(;;) {
if( IOCB->typ == PT_NOTYPE ) {
IOCB->flags |= IOF_FMTDONE;
}
if( IOCB->typ == PT_NOTYPE ) break;
FmtPrepOp();
R_ChkType( PT_LOG_1, PT_CPLX_32 );
if( IOCB->flags & IOF_OUTPT ) {
R_FOG();
R_ChkRecLen();
} else {
R_FIFloat();
}
FmtIOType();
if( --rep == 0 ) break;
}
IOCB->flags |= IOF_FMTREP;
IOCB->fmtptr = (fmt_desc PGM *)((fmt3 PGM *)IOCB->fmtptr + 1);
}
