Commit 4ba19e5e authored by Matthias Redies's avatar Matthias Redies

fix typo

parent 5966c313
...@@ -507,7 +507,7 @@ CONTAINS ...@@ -507,7 +507,7 @@ CONTAINS
END IF END IF
990 FORMAT(2(f8.4,1x),i3,1x,i3) 990 FORMAT(2(f8.4,1x),i3,1x,i3)
1001 FORMAT(e12.4) 1000 FORMAT(e12.4)
1010 FORMAT(2(2e20.8,1x)) 1010 FORMAT(2(2e20.8,1x))
! !
! ------------------------------------------------------------ ! ------------------------------------------------------------
......
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