#!/bin/csh  -f
####
#  to_quad *input fill.f90
####
foreach arg ($*)
echo "converting " $arg
awk '{                                      \
	if(substr($0,1,3) == "\!qp") {          \
		print(substr($0,2,length($0)))      \
	}                                       \
	else {                                  \
		if($NF == "\!qp" &&                 \
		   substr($0,1,1) == "\!") {        \
			print(substr($0,2,length($0)))  \
		}                                   \
		else {                              \
			print($0)                       \
			}                               \
	}                                       \
} ' $arg > tmp
diff tmp $arg
mv tmp $arg
end

