| |
| | [No title] |
 | | do 530 ntime = 1,nend call ezstep(ntime,ez,hy,hx) call hxstep(ntime,ez,hy,hx) call hystep(ntime,ez,hy,hx) C........Write "permanent" output if appropriate. |
 | | 0) & write(iout,*)'Time = ',ntime endif 530 continue write(6,*)'Maximum value of field = ',xmax 2000 stop end C-------------------------- end of main program -------------------------- C########################### subroutine ezstep ########################### subroutine ezstep(ntime,ez,hy,hx) C..... |
 | | C This subroutine calculates the next values of the pressure C given the current values. |
| moab.eecs.wsu.edu /~schneidj/Animations/former-ftp/circle.f (1054 words) |
|