#!/bin/csh -f

 foreach pla (an au eu nz na pa sa )

    cat cov_$pla > cov1_$pla
#   ../bird.2003.real.cov/substitute1.pl cov1_$pla in2 > cov5_$pla
    substitute1.pl cov1_$pla in2 > cov5_$pla
    cat cov5_$pla | ../bird.2003.real.cov/cov1 > conf.plate/cov1_$pla

    cd conf.plate.real.all
    covari.nnr.pl cov1_$pla
    cd ..

    grep pa ../morvel/cov_$pla >> cov1_$pla

    set aa = `echo $pla $pla ` 
    echo $aa $pla
#   grep $aa ../morvel/cov_$pla
    cat covar3 >> cov1_$pla
    grep 'pa. pa.' ../morvel/cov_$pla >> cov1_$pla

 end
exit

 echo 'pa' > fix
 foreach pla ( AN AU EU NZ NA PA SA )
#   pacific < cov1_$pla > cov2_$pla  # expand
    cat fix cov1_$pla | cov3 > cov3.{$pla}_pa  # trasnform to pacific fixed
    cat conf > conf.plate/cov3.{$pla}_pa
 end


    substitute1.pl cov_NA- in2- > cov5_NA-
    cat cov5_NA- | cov1 > conf.plate1/EUNA
    cat rms > rms.NA-

    substitute1.pl cov_AU- in2- > cov5_AU-
    cat cov5_AU- | cov1 > conf.plate1/PAAU
    cat rms > rms.AU-