program readtextfile
real, dimension (14244,2) :: A
integer :: row, col, max_row, max_col
max_row=14244
max_col=2
open(2,file='MET0001432_1.txt',status='old')
do row=1,max_row
read(2,*) (A(row,col), col=1,max_col)
!enddo
!print*, A(1,1)
sumj=0.0
start=1
end1=31
J=2...