Ert 642 determine faultblock

Code to determine the neighboring cells on each side of a fault; and furthermore code to determine the faultblock value for a particular fault. Does not seem to work 100% yet ...