Searched refs:FIO_COMMA (Results 1 – 9 of 9) sorted by relevance
52 #define FIO_COMMA 65 /* values for decimal */ macro
271 gbl->decimal = FIO_COMMA; in ENTF90IO()892 if (gbl->decimal == FIO_COMMA) { in get_token()924 if (gbl->decimal != FIO_COMMA) { in get_token()955 if (gbl->decimal == FIO_COMMA) in get_token()1042 if (gbl->decimal == FIO_COMMA) in get_token()1061 if (gbl->decimal == FIO_COMMA) in get_token()1497 if ((token == TK_COMMA && gbl->decimal != FIO_COMMA) || in assign_values()1498 (token == TK_SEMICOLON && gbl->decimal == FIO_COMMA)) { in assign_values()1949 if (gbl->decimal == FIO_COMMA) { in assign()2071 if (gbl->decimal == FIO_COMMA) { in dtio_assign()
166 gbl->decimal = FIO_COMMA; in ENTF90IO()434 if (gbl->decimal == FIO_COMMA) { in write_nml_val()483 if (gbl->decimal == FIO_COMMA) in write_nml_val()762 if (gbl->decimal == FIO_COMMA) in _f90io_nml_write()1048 if (gbl->decimal == FIO_COMMA) { in dtio_write_scalar()
427 gbl->decimal = FIO_COMMA; in ENTF90IO()916 if (gbl->decimal != FIO_COMMA) in get_token()927 if (gbl->decimal == FIO_COMMA) in get_token()997 if (gbl->decimal != FIO_COMMA) in get_token()1009 if (gbl->decimal == FIO_COMMA) { in get_token()1219 if (gbl->decimal == FIO_COMMA) in get_number()1269 if (gbl->decimal == FIO_COMMA) { in get_cmplx()
548 gbl->decimal = FIO_COMMA; in ENTF90IO()1647 g->decimal = FIO_COMMA; in fr_read()2046 if (gbl->decimal == FIO_COMMA) { in fr_readnum()2127 if (gbl->decimal == FIO_COMMA) { in fr_readnum()2288 if (gbl->decimal == FIO_COMMA) { in fr_readnum()2932 } else if (c == ',' && gbl->decimal == FIO_COMMA) { in fr_getreal()
340 gbl->decimal = FIO_COMMA; in ENTF90IO()606 if (gbl->decimal == FIO_COMMA) in __f90io_ldw()
411 gbl->decimal = FIO_COMMA; in ENTF90IO()1256 g->decimal = FIO_COMMA; in fw_write()1527 g->decimal = FIO_COMMA; in fw_end_nonadvance()1889 if (g->decimal == FIO_COMMA) in fw_writenum()
1134 Fcb->decimal = FIO_COMMA; in ENTF90IO()
388 else if (f->decimal == FIO_COMMA) in inquire()1513 else if (f->decimal == FIO_COMMA) in ENTF90IO()