diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-02 13:40:58 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-02 13:40:58 +0000 |
| commit | c277f597779873f7bb19b7479b6268bab7548ab2 (patch) | |
| tree | 34b4f47356b717868028f4a845396f72956fe058 /lib/sbin/f_file_processor.pl | |
| parent | da5b2711b146f67c19650ea9873e07c424fdc3d0 (diff) | |
Do not produce empty continuation lines, which would contain "&&"
sequences. Those are apparently illegal in Fortran 90.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3580 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/f_file_processor.pl')
| -rw-r--r-- | lib/sbin/f_file_processor.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/sbin/f_file_processor.pl b/lib/sbin/f_file_processor.pl index 4cfacdb9..4c7fcc20 100644 --- a/lib/sbin/f_file_processor.pl +++ b/lib/sbin/f_file_processor.pl @@ -244,7 +244,12 @@ sub free_format_splitline &printline ($OUT); $LINE =~ s/.{75,75}//; } - if ($LINE =~ /^\s*\&\s*$/) + + if ($LINE =~ /^\&\s*$/) + { + &printline (" & $LINE"); + } + elsif ($LINE =~ /^\s*\&\s*$/) { &printline (" &$LINE"); } |