utils/SSEphem/asc2bin.cc
void fix_double_notation(char *str)
{
    int i;
    for (i = 1; i < strlen(str) - 1; i++) {
        if ((str[i] == 'd') || (str[i] == 'D')) {
            if (isdigit(str[i - 1]) && (isdigit(str[i + 1]) ||
                               (str[i + 1] == '-') || (str[i + 1] == '+'))) {
                str[i] = 'e';
            }
        }
    }
}
// Change the FORTRAN double precision notation to C notation.
Change the FORTRAN double precision notation to C notation.
Change the FORTRAN double precision notation to C notation .
void fix_double_notation(char *str)
{
    int i;
    for (i = 1; i < strlen(str) - 1; i++) {
        if ((str[i] == 'd') || (str[i] == 'D')) {
            if (isdigit(str[i - 1]) && (isdigit(str[i + 1]) ||
                               (str[i + 1] == '-') || (str[i + 1] == '+'))) {
                str[i] = 'e';
            }
        }
    }
}
void fix_double_notation ( char * str ) { int i ; for ( i = 1 ; i < strlen ( str ) - 1 ; i ++ ) { if ( ( str [ i ] == ' ' ) || ( str [ i ] == ' ' ) ) { if ( isdigit ( str [ i - 1 ] ) && ( isdigit ( str [ i + 1 ] ) || ( str [ i + 1 ] == ' ' ) || ( str [ i + 1 ] == ' ' ) ) ) { str [ i ] = ' ' ; } } } }
Change the FORTRAN double precision notation to C notation.
Change the FORTRAN double precision notation to C notation .