iceandguard/test.f08

Created January 2, 2011 22:38

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/iceandguard/762891.js"></script>
Save iceandguard/762891 to your computer and use it in GitHub Desktop.

Download ZIP

http://gall.dcinside.com/programming/228575

Raw

	REAL X, Y, Z
	DATA X /1.2345E1/
	DATA Y /.12345E2/
	DATA Z /.012345E3/
	DATA A /-1.2345E1/
	DATA B /-0.12345E2/
	PRINT *, X, Y, Z
	PRINT *, A, B
	END

Author

iceandguard commented Jan 2, 2011

12.345000 12.345000 12.345000
-12.345000 -12.345000

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment