If one assumes that the code is based on that from http://www.nist.gov/mml/csd/inorganic/xrf.cfm then the problem is that gfortran is not a Fortran IV compiler and it doesn't support extensions that other compilers did.
From that source the full "line" (taking into account continuation is) for the first error:
IF ( NFILL.EQ. 0)
1 ENCODE( NC, 102, HIN( 4* NR- 3)) ( H( IU, I), I= I1, I2)
According to the gfortran documentation ENCODE
is not supported.
I guess that in the code you've presented you (or someone) has attempted to remove the troublesome lines. But incorrectly: lines have been removed, but not whole statements, which can consist of many lines.
Ignoring the fact that removing the encoding fundamentally changes the meaning of the code, you'll need to remove the whole statements where the ENCODE
s appear. Remove all subsequent continuation lines and the first preceding non-continuation line. Lines 5525, 5529 and 5520 in these cases.