sed "s/MX=4000/MX=200/g" cctn.f > t.f
sed -i "s/IOX=1500/IOX=1500/g" t.f
sed -i "s/CCTN/t/g" t.f
f95 -w t.f -o ../t