source/fragments/gebon.csh

   1 #!/bin/csh
   2
   3 if ( $#argv < 1 ) then
   4  set models="*TS[1-5]"
   5 else
   6  set models=($1)
   7 endif
   8
   9 set nmodel = 0
  10 foreach f1 ($models)
  11  set nmodel = `expr $nmodel + 1 `
  12  set start = `grep CA $f1 | head -1 | awk '{print substr($0,23,4)}'`
  13  set end = `grep CA $f1 | tail -1 | awk '{print substr($0,23,4)}'`
  14 # echo $start $end
  15  foreach f2 ($models)
  16  if ($f1 != $f2) then
  17   echo -n $f1 $f2 |awk '{printf "%-32s%-32s",$1,$2}' >> all.txt
  18   /users2/CASP13/scripts/suppdb_ca_dis $f1 $f2 ooo_${f1}_${f2}_ooo $start $end >& /dev/null
  19   tail -1 ooo_${f1}_${f2}_ooo >> all.txt
  20  endif
  21 end
  22 end
  23 set nres=`expr $end - $start + 1`
  24 echo $nres $nmodel
  25 /users2/CASP13/scripts/klapaucjusz $nres $nmodel < all.txt > fragments.logfile