
g77 -o patchfind.x patchfind.f crystal.f cell.f

