Halfway done with Coherence2D code in f90.