Skip to content
Snippets Groups Projects
Commit 8c3651ba authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Update fpp pre-processor wrapper for crayftn.

parent 3bb8cb77
No related branches found
No related tags found
No related merge requests found
......@@ -41,6 +41,7 @@
#
# Wrapper for the ftn command to write preprocessed fortran files to stdout.
#
test x"$DEBUG" = x || set -x
set -e
# create temp directory for intermediate .i-files
temporaries="$(mktemp -d -t)"
......@@ -55,6 +56,11 @@ for (( i = 0 ; i < ${#inargs[@]} ; i++ )) ; do
case ${inargs[$i]} in
(-o) i=$((i + 1)) ;;
(-o*) ;;
(-eZ) ;;
(-e*Z*)
outargs[$j]="${inargs[$i]//Z/}"
j=$((j + 1))
;;
(*)
outargs[$j]="${inargs[$i]}"
j=$((j + 1))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment