Fortran90 極値求めたい

Question

大学で海の波について研究しています。Fortran90を使用して以下の処理を行いたいのですが、プログラムについては知識がないので、教えていただきたいです。cadmas(数値計算）を使用して、以下のような水位のデータ(波のデータ）を取りました。その波の極値を求めて、足すプログラムを作りたいです。

ファイル名：data.txt

time 1 2 3 .. 5000（x方向）
1 0 0 0 0
2 -1 0 0 0
3 -2 -1 0 0
4 -3 -2 -1 0
5 -2 **-3 ** -2 0
6 -1 -2 **-3 ** 0
7 0 -1 -2 0
8 1 0 -1 0
9 2 1 0 0
10 3 2 1 0
11 2 3 2 0
12 1 2 **3 ** 0
13 0 1 2 0
14 -1 0 1 0
.
.
.
300

300sまで繰り返し現れる太字の極値の前後を足すプログラムを作りたいです。
ただし、負の値は正の値して足すので、-(-3)+3=6　になります。
以下のファイルを出力したいです

time 1 2 3 .. 5000（x方向）
1 0 0 0 0
2 0 0 0 0
3 0 0 0 　　　　　　　　0
4 0 0 0 0
5 0 0 0 0
6 0 0 0 　　　　　　　　0
7 6 0 0 　　　　　　　　0
8 0 6 0 0
9 0 0 6 0
10 0 0 0 0
11 0 0 0 0
12 0 0 0 0
13 0 0 0 0
14 0 0 0 0
.
.
.
300

今回、値は同じ周期、同じ値を使用しましたが実際はバラバラです。列ごとに前後の数値の大小関係から極値を判断できるよるにして頂きたいです。よろしくお願いいたします。引用テキスト