Strange label usage for an IF condition in a DO loop [duplicate]

by

Wow … I haven’t seen that syntax in a while. That is a Fortran Arithmetic IF Statement. The result of KODE(J) is a number. If it is less than zero, then the first jump is used, if it is equal to zero, then the second jump is used, otherwise, the third jump is used. This is roughly equivalent to:

X=KODE(J)
IF (X.LT.0) GO TO 55
IF (X.EQ.0) GO TO 55
GO TO 40

My Fortran skills have faded significantly, but this is what I remember.

In this particular case, even simpler for programmer to write

X=KODE(J)
IF (X.LE.0) GO TO 55
GO TO 40

More Related Contents:

  1. Fortran 90 kind parameter
  2. Fortran: integer*4 vs integer(4) vs integer(kind=4)
  3. Unexpected “padding” in a Fortran unformatted file
  4. Fortran assignment on declaration and SAVE attribute gotcha
  5. MPI_Recv overwrites parts of memory it should not access
  6. changing array dimensions in fortran
  7. Why should I use interfaces?
  8. Fortran OpenMP program shows no speedup of CPU_TIME()
  9. Where to put `implicit none` in Fortran
  10. Function has no implicit type
  11. ‘*’ and ‘/’ not recognized on input by a read statement
  12. What are the ways to pass a set of variable values through the subroutine to a function without common block?
  13. how to write wrapper for ‘allocate’
  14. gfortran does not allow character arrays with varying component lengths
  15. How do I do big integers in Fortran?
  16. What does “real*8” mean?
  17. What is the purpose of result variables in Fortran?
  18. Line truncated, Syntax error in argument list
  19. Fortran IF statement with numbers/labels rather than another statement
  20. Using a deferred-length character string to read user input
  21. Providing an argument that has not the TARGET attribute to a procedure with a dummy argument that has the TARGET attribute
  22. Reading writing fortran direct access unformatted files with different compilers
  23. Fortran OpenMP with subroutines and functions
  24. Error: Nonnegative width required in format string at (1)
  25. Fortran array cannot be returned in function: not a DUMMY variable
  26. Using do loop in a Fortran 90 program to read different number of lines for n frames?
  27. Passing size as argument VS assuming shape in Fortran procedures
  28. Allocatable array valued function. gfortran vs ifort
  29. How to pass subroutine names as arguments in Fortran?
  30. Confusing double precision real in Fortran

Leave a Comment