Simple Program to Investigate Hysteresis Damping Effect of Cross-Ties on Cables Vibration of Cable-Stayed Bridges

Algorithm 4

Subroutine NHIST.

1  SUBROUTINE NHIST(T,N)

2  COMMON/C/NN, TK, NK

3  DIMENSION TK(20), NK(20)

4  REAL 𝑁, NK

5  DO 1 𝐼 = 1, NN−1

6  IF((𝑇− TK(1))*(𝑇− TK(𝐼 + 1)).GT.0.) GO TO 1

7  𝑁 = NK(𝐼) + (NK(𝐼 + 1)−NK(𝐼))/(TK(𝐼 + 1)−TK(𝐼))*(T−TK(𝐼))

8  RETURN

9 1 CONTINUE

10  END