#!/bin/csh -f
set name = ( `pgrep "^\s+ALLH" < $MODELS_LIB | perl -pe 'tr/A-Z/a-z/'`)

set i = 1
begin:
if ( $i > $#name ) goto end
  perl -pe 's/topology_model/'$i'/; s/name/'${name[$i]}'/' \
    make_topology_model2.top > \
    make_topology_model_${name[$i]}.top
  echo make_topology_model_${name[$i]}
  mod make_topology_model_${name[$i]}
  @ i = $i + 1
goto begin
end:
