c  From: "COMPUTATIONAL PHYSICS, 2nd Ed" 
c  by RH Landau, MJ Paez, and CC Bordeianu 
c  Copyright Wiley-VCH, 2007.
c  Electronic Materials copyright: R Landau, Oregon State Univ, 2007;
c  MJ Paez, Univ Antioquia, 2007; and CC Bordeianu, Univ Bucharest, 2007.
c  Support by National Science Foundation 
c                      
c  laplace.f: Solution of Laplace equation with finite differences 
c             Output in gnuplot 3D grid format used by

      Program laplace
			
      	Implicit none
      	Integer max
      	Parameter(max = 40)
      	Real*8 p(max, max)
      	Integer i, j, iter 
				
      	Open(8, File = 'laplace.dat', Status = 'Unknown')
c         

        Do 100 i = 1, max
         Do 200 j = 1, max 
   	      p(i, j) = 0.
 200      Continue
 100 	  Continue   

c                               side with constant potential
   	    Do 10 i = 1, max
          p(i, 1) = 100.
 10 	  Continue   
c                                                 iteration algorithm
  	    Do 20 iter = 1, 1000
  	      Do 30 i = 2, (max-1)
  	        Do 40 j = 2, (max-1)
  	    p(i, j) = 0.25*(p(i+1,j)+p(i-1,j) +p(i,j+1) + p(i,j-1))
 40	        Continue
 30	      Continue
 20	    Continue	    
c                                         output in gnuplot 3D format
	      Do 50 i = 1, max
	        Do 60 j = 1, max
	          Write (8, 22) p(i, j)
 60	      Continue
 	        Write (8, 22)
 50	    Continue
 22 	  Format(f10.6)
 	      Close(8)   
 	      Stop 'data saved in laplace.dat'
  	  End