lines = ['REPORT CARD\n', 'GRADE: D+ (1.3D+00/4.0D+00)\n']
for ln, line in enumerate(lines):
    res = re_dbl_fort.sub('\\1E\\2', line)
if line != res:
    lines[ln] = res
Чтение формата двойной точности fortran в python