static void FreeIOType( void ) { //============================ if( (IOCB->flags & NML_DIRECTED) == 0 ) { ArrayIOType(); return; } IOCB->typ = IOTypeRtn(); }
static void FmtIOType( void ) { //=========================== if( IOCB->flags & IOF_FMTREALPART ) { IOCB->flags &= ~IOF_FMTREALPART; } else { ArrayIOType(); if( (IOCB->typ >= PT_CPLX_8) && (IOCB->typ <= PT_CPLX_32) ) { IOCB->flags |= IOF_FMTREALPART; } } }