Question

I have a gfortran error:

Warning: Obsolete: arithmetic IF statement at (1) 

What does this mean? In the source (old source):

66 s12 = max(epsilon, s1 + s2)
c Then execution will go to label 13. Will this stop any further problems?
if (s12 - 1.0) 13, 13, 12
13 z = s1 / s12

Answer 1

Arithmetic if is a peculiar feature of FORTRAN

it works as follows.

 IF (expr) label1, label2, label3

If the value of the expression is

less than 0, jump to label1 
equal to 0, jump to label2
greater than 0, jump to label3

In newer FORTRAN standards this feature is obsolete

In your code you can replace it with

      IF (s12 - 1.0 .gt. 0 ) GOTO 12
13    z = s1 / s12