Fortran IF statement with numbers/labels rather than another statement

by

This is an arithmetic if statement from FORTRAN 77. Adapted from the FORTRAN 77 specification (emphasis mine):

The form of an arithmetic IF statement is:

IF (e) s1 , s2 , s2

  • where: e is an integer, real, or double precision expression

  • s1, s2, and s3 are each the statement label of an executable statement that appears in the same program unit as the arithmetic IF statement. The same statement label may appear more than once in the same arithmetic IF statement.

Execution of an arithmetic IF statement causes evaluation of the expression e followed by a transfer of control. The statement identified by s1, s2, or s3 is executed next as the value of e is less than zero, equal to zero, or greater than zero, respectively.

For the example in your question, from the last sentence above,

  • If J1-3 < 0 statement 20 will be executed
  • If J1-3 = 0 statement 20 will also be executed
  • If J1-3 > 0 statement 21 will be executed

Edit: A modern and much more readable way to write this would be:

if (J1-3 > 0) J1 = J1 - 3
if (J2-3 > 0) J2 = J2 - 3

More Related Contents:

  1. Is There a Better Double-Precision Assignment in Fortran 90?
  2. Where to put `implicit none` in Fortran
  3. What are the ways to pass a set of variable values through the subroutine to a function without common block?
  4. gfortran does not allow character arrays with varying component lengths
  5. What does “real*8” mean?
  6. What is the purpose of result variables in Fortran?
  7. Function in fortran, passing array in, receiving array out
  8. Fortran intent(inout) versus omitting intent
  9. Fortran array cannot be returned in function: not a DUMMY variable
  10. Is Fortran unable to do the addition between 865398.78 and -865398.78? Why the answer is -0.03?
  11. Using do loop in a Fortran 90 program to read different number of lines for n frames?
  12. Fortran SAVE statement
  13. Fortran: integer*4 vs integer(4) vs integer(kind=4)
  14. Procedure with assumed-shape dummy argument must have an explicit interface [duplicate]
  15. changing array dimensions in fortran
  16. Format string for output dependent on a variable
  17. How to pass allocatable arrays to subroutines in Fortran
  18. Why should I use interfaces?
  19. Fortran OpenMP program shows no speedup of CPU_TIME()
  20. Function has no implicit type
  21. Print to standard output from a function defined in an Fortran module
  22. ‘*’ and ‘/’ not recognized on input by a read statement
  23. Reading data file in Fortran with known number of lines but unknown number of entries in each line
  24. Arrays of pointers
  25. Defining a function returning an array
  26. Fortran OpenMP with subroutines and functions
  27. Error: Nonnegative width required in format string at (1)
  28. How to increase array size on-the-fly in Fortran?
  29. How to pass subroutine names as arguments in Fortran?
  30. Confusing double precision real in Fortran

Leave a Comment