#!/bin/csh
# do a global ftnchek, backing up any existing all_source.txt to all_source.txt-
# Assumes location above the
# individual esrubld esrubps etc. directories (i.e. esp-r).

echo "usage example: first cd to esp-r directory level, then"
echo "usage example: all_ftnchek"
echo currently working on $PWD

foreach i (esruaco esrub2e esrubps esruc2e esrucfg esruclm esrucnv esrudfs esrudbm \
  esrue2r esrueco esrugrd esruish esrumfs esrumld esrumrt esrunet esrupdb \
  esruprj esrures esruvew )
 if ( -d $i ) then
   echo looking at $i
   cd $i
   if ( -f all_source.F ) rm all_source.F
   cat *.F ../lib/esru_blk.F ../lib/esru_ask.F ../lib/esru_libX11.F > all_source
   reposition_include
   if ( -f all_source.txt ) mv all_source.txt all_source.txt-
   ftnchek -include=../include -output=all_source.txt -truncation=all -array=all -quiet=yes -brief all_source.F
   echo looking at all_source.txt
   tail -n 40 all_source.txt | more
   rm -f all_source
   cd ..
 endif
end
