#!/bin/csh

cat <<eod> ! transf.f
 999   format(1X,I3,F6.1,6E13.7)
1000   format(1X,I4,F7.1,6F14.7)
      do k=1,96
         read(*,999)  i1,z1,z2,z3,z4,z5,z6,z7
         write(*,1000) i1,z1,z2,z3,z4,z5,z6,z7
      enddo
      end

eod
make transf

#foreach i ( LES03SC LES05SC LES05WC LES15B LES24B LES24F LES24SC )
foreach i ( LES00SC LES00WC )
\rm -r $i
mkdir $i
cp ORIG/$i.dat $i/orig
cd $i
split -l 298 orig
touch tmp
tail +5 xaa > ! t0
tail +5 xab > ! tm
foreach f ( t0 tm )
split -l 98 $f
foreach l ( a b c )
tail +3 xa$l | ../transf  >! $f.$l
tail +3 xa$l >> tmp
end
end
# transf < ORIG/$i.dat > ! $i.datx
diff orig tmp > LISMOI
cd ..
end


