Annotation of /MITgcm_contrib/jmc_script/derive_other_types

#!/bin/sh

# $Header: /u/gcmpack/MITgcm_contrib/jmc_script/derive_other_types,v 1.1 2009/05/11 12:32:37 jmc Exp $
# $Name:  $

#- This script is intended to help keeping up to date the 4 source files: 
#  "mdsio_pass_r{4,8}tor{l,s}.F" (same code, just different type R4,R8,RS,RL)
#  From the 1rst src file (mdsio_pass_r4torl.F), derive the 3 others
#   but keeping the original CVS header

showDiff=1
chg4to8=tmp_A.$$
tmpOutF=tmp_O.$$
cat <<EOF >> $chg4to8
s/R4/R8/g
s/Real\*4/Real*8/g
s/real\*4/real*8/g
EOF

kWord='Header'

xx='mdsio_pass_r8torl.F'
yy=`echo $xx | sed 's/_r8/_r4/'`
echo "generate $xx from $yy"
sed -n "/^C \$$kWord:/p" $xx > $tmpOutF
sed -f $chg4to8 $yy | sed "/^C \$$kWord:/d" >> $tmpOutF 
cmp -s $xx $tmpOutF
outp=$?
#echo $outp
if test $outp = 0 ; then
 echo ' no changes in:' $xx
 rm -f $tmpOutF
else
 if test $showDiff = 1 ; then 
   echo "diff $xx $tmpOutF"
   diff $xx $tmpOutF
 fi
 echo 'Update:' $xx
 mv -i  $tmpOutF $xx
fi


for xx in `ls mdsio_pass_r?tors.F`
do
 yy=`echo $xx | sed 's/rs\.F$/rl.F/'`
echo "generate $xx from $yy"
sed -n "/^C \$$kWord:/p" $xx > $tmpOutF
sed 's/RL/RS/g' $yy | sed "/^C \$$kWord:/d" >> $tmpOutF  
cmp -s $xx $tmpOutF
outp=$?
#echo $outp
if test $outp = 0 ; then
 echo ' no changes in:' $xx
 rm -f $tmpOutF
else
 if test $showDiff = 1 ; then 
   echo "diff $xx $tmpOutF"
   diff $xx $tmpOutF
 fi
 echo 'Update:' $xx
 mv -i  $tmpOutF $xx
fi
done

rm -f $chg4to8
1	jmc	1.1	#!/bin/sh
2
3	jmc	1.2	# $Header: /u/gcmpack/MITgcm_contrib/jmc_script/derive_other_types,v 1.1 2009/05/11 12:32:37 jmc Exp $
4	jmc	1.1	# $Name: $
5
6			#- This script is intended to help keeping up to date the 4 source files:
7			# "mdsio_pass_r{4,8}tor{l,s}.F" (same code, just different type R4,R8,RS,RL)
8			# From the 1rst src file (mdsio_pass_r4torl.F), derive the 3 others
9			# but keeping the original CVS header
10
11			showDiff=1
12			chg4to8=tmp_A.$$
13			tmpOutF=tmp_O.$$
14			cat <<EOF >> $chg4to8
15			s/R4/R8/g
16			s/Real\4/Real8/g
17			s/real\4/real8/g
18			EOF
19
20	jmc	1.2	kWord='Header'
21
22	jmc	1.1	xx='mdsio_pass_r8torl.F'
23			yy=`echo $xx \| sed 's/_r8/_r4/'`
24			echo "generate $xx from $yy"
25	jmc	1.2	sed -n "/^C \$$kWord:/p" $xx > $tmpOutF
26			sed -f $chg4to8 $yy \| sed "/^C \$$kWord:/d" >> $tmpOutF
27	jmc	1.1	cmp -s $xx $tmpOutF
28			outp=$?
29			#echo $outp
30			if test $outp = 0 ; then
31			echo ' no changes in:' $xx
32			rm -f $tmpOutF
33			else
34			if test $showDiff = 1 ; then
35			echo "diff $xx $tmpOutF"
36			diff $xx $tmpOutF
37			fi
38			echo 'Update:' $xx
39			mv -i $tmpOutF $xx
40			fi
41
42
43			for xx in `ls mdsio_pass_r?tors.F`
44			do
45			yy=`echo $xx \| sed 's/rs\.F$/rl.F/'`
46			echo "generate $xx from $yy"
47	jmc	1.2	sed -n "/^C \$$kWord:/p" $xx > $tmpOutF
48			sed 's/RL/RS/g' $yy \| sed "/^C \$$kWord:/d" >> $tmpOutF
49	jmc	1.1	cmp -s $xx $tmpOutF
50			outp=$?
51			#echo $outp
52			if test $outp = 0 ; then
53			echo ' no changes in:' $xx
54			rm -f $tmpOutF
55			else
56			if test $showDiff = 1 ; then
57			echo "diff $xx $tmpOutF"
58			diff $xx $tmpOutF
59			fi
60			echo 'Update:' $xx
61			mv -i $tmpOutF $xx
62			fi
63			done
64
65			rm -f $chg4to8