File: f77dfix

package info (click to toggle)
yorick 1.4-14
  • links: PTS
  • area: main
  • in suites: potato
  • size: 5,948 kB
  • ctags: 6,609
  • sloc: ansic: 63,898; yacc: 889; makefile: 605; sh: 65; lisp: 60; fortran: 19
file content (7 lines) | stat: -rwxr-xr-x 266 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
#!/bin/sh
# Filter to change numbers of the form 1.234D56 to 1.234e56
# The former is emitted by Fortran, the latter is acceptable to C.
# Usage:
#   f77dfix file1 >file2
#   ... | f77dfix | ...
sed -e 's/\([0123456789.]\)[dD]\([+-]\{0,1\}[0123456789]\)/\1e\2/g' $1