Ejemplo n.º 1
0
static  void    FreeIOType( void ) {
//============================

    if( (IOCB->flags & NML_DIRECTED) == 0 ) {
        ArrayIOType();
        return;
    }
    IOCB->typ = IOTypeRtn();
}
Ejemplo n.º 2
0
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;
        }
    }
}