9 lines
123 B
Tcsh
9 lines
123 B
Tcsh
#!/bin/tcsh
|
|
foreach fil (*.inp)
|
|
set u=${fil:au:r}
|
|
if (-e $u.340) then
|
|
# rm $fil
|
|
echo "$fil $u.340"
|
|
endif
|
|
end
|