C FINITE DIFFERENCE PROGRAM.C EXAMPLE 12.3 DIMENSION V(50,50),MESH(50,50) OPEN(UNIT=6,FILE=?F.O',STATUS=?NEW')C SET BOUNDARY VALUES AND MESH ADDRESSESC SET ACCELERATION FACTOR AL. AL=1. DO 5 I=1,30 DO 5 J=1,13 V(I,J)=50. 5 MESH(I,J)=2 DO 6 J=1,13 V(1,J)=0. MESH(1,J)=0 V(30,J)=0. 6 MESH(30,J)=0 DO 7 I=1,30 V(I,1)=0. MESH(I,1)=0 V(I,13)=0. 7 MESH(I,13)=0 DO 8 I=4,27 DO 8 J=3,4 V(I,J)=0. 8 MESH(I,J)=0 DO 9 I=6,25 DO 9 J=7,10 V(I,J)=100. 9 MESH(I,J)=1<a name="2122"></a><a name="IDX-644"></a>C ITERATION COUNT FOR S.O.R IT=0 60 IT=IT+1 DIFMAX=0.0 DO 10 I=1,30 DO 10 J=1,13 M=MESH(I,J) IF(M.LT.2) GO TO 10 VOLD=V(I,J) V(I,J)=VOLD+(AL/4.)*(V(I-1,J)+V(I,J-1) ...
TABLE OF CONTENTS 
