The program ypolk1.f90 calculate the quantity k1 for each value of 'ava.dat.2500'. There is a threshold value, 'mthres'. First, I want to find which values of 'ava.dat.2500' are greater (or equal) than mthres (easy...). Then, i want to apply the procedure described in ypolk1.f90 to the following...