compile using gfortran

I'm sorry to ask questions so many times, but I can count on only this forum.
I read 
https://tough.forumbee.com/t/80xxf4/install-of-tough2 ,
and I'm facing the same (Ana Avila 's compiler) problem.

I want to compile eos1.f and make xt2_eos1.exe using gfortran.
So I put eos1.f into "Source_Core" folder with some tough2 souce files(T2,t2cg22.f,etc.),
and according to user's guide , I wrote on cmd
"gfortran -o xt2_eos1 -g -fdefault-real-8 -falign-commons t2fm.f eos1.f t2cg22.f meshm.f t2f.f t2solv.f",
and then the same error occured as Ana's.

In reference to 
https://tough.forumbee.com/t/633bj3 ,

(1) Replace all "CALL SECOND" with "CALL CPUSEC"

(2) In t2cg22.f, replace SUBROUTINE SECOND with the following:

********************************************************************** 
      SUBROUTINE CPUSEC(SS) 
********************************************************************** 
      REAL*8  SS 
      REAL*4  S 
      S=SECOND() 
      SS=S 
      END

but I don't understand this replace.
In t2cg22.f, there is no SUBROUTINE SECOND, but SUBROUTINE SEC(SS) is.

**********************************************************************
      SUBROUTINE SEC(SS)
**********************************************************************
* Returns CPU-time                                                   *
**********************************************************************
      IMPLICIT NONE
      INTEGER ICALL
      REAL*4  S,SOLD

SAVE SOLD

      DATA ICALL/0/

ICALL=ICALL+1
      IF(ICALL.EQ.1) WRITE(11,7999)
 7999 FORMAT(6X,'CPUSEC   1.0       5 APRIL     2000',6X,
     &       'RETURNS CPU-TIME (PC, DVF)')

      CALL CPU_TIME(S)
      IF (ICALL.EQ.1) SOLD=S
      SS=S-SOLD
      END

So I replaced this SUBROUTINE SEC(SS) with SUBROUTINE CPUSEC(SS),
and then replaced all CALL SEC(**) in t2f.f and t2fm.f with CALL CPUSEC(**) ,
but it didn't go well.

What is wrong?

Thanks