Commit b1786c9f authored by Gebhardt, Albrecht's avatar Gebhardt, Albrecht
Browse files

a very last Fortran fix

parent dedb7f39
......@@ -4013,7 +4013,7 @@ C
LOGICAL LEFT
INTEGER LP, N0, N1, N2, N3, N4, NB, NF, NL, NP, NPP
LOGICAL FRWRD
DOUBLE PRECISION XA, XB, XC, XP, YA, YB, YC, YP
DOUBLE PRECISION XP,YP
C
N0 = MAX(NST,1)
XP = PX
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment