I'm revisiting Ftn 77 after many years, and seem to have forgotten how this combination from a NOAA program is interpreted/works:
READ (*,531) ISTA(1),NO(1),(AMP(J),EPOC(J), J=1,7),ISTA(2),NO(2),
1 (AMP(J),EPOC(J),J=8,14),ISTA(3),NO(3),(AMP(J),EPOC(J),J=15,21),
2...