fork download 
  1. C     Program to get the CC#5 Coordinates
  2.       Program CC5
  3. C
  4.       IMPLICIT REAL*8 (e-f,k-o)
  5. C
  6.       CALL Get_Coords (North,East)
  7.       WRITE (*,1000) North, East
  8. 1000  FORMAT ('Cache coordinates: N50',F7.3,', E014',F7.3)
  9. C
  10.       STOP
  11.       END
  12. C
  13. C     Get_Coords
  14.       SUBROUTINE Get_Coords (polN, polE)
  15. C
  16.       IMPLICIT REAL*8 (e-f,k-z)
  17.       INTEGER I
  18. C
  19.       OffN = 0.780
  20.       OffE = 2.385
  21.       KonN = 0.160
  22.       KonE = 2.210
  23.       ExpN = 1.010
  24.       ExpE = 1.210
  25. C
  26.       polN = OffN
  27.       polE = OffE
  28. C
  29.       DO 100 I = 1,6
  30. C
  31.       polN = KonN * ExpN**I + polN
  32.       polE = KonE * ExpE**I + polE
  33. C
  34. 100   CONTINUE
  35. C
  36.       RETURN
  37.       END
Runtime error #stdin #stdout 0.03s 7504KB
comments (?)
stdin 
Standard input is empty
stdout 

	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			


			                        
			
			

				

	
					
					 https://ideone.com/Qfu5j
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Forth (gforth 0.7.3)

					

					

						
created:
								
						
14 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!