| |
| | [No title] (Site not responding. Last check: 2007-10-29) |
 | | C C Revision 1.1 2004/10/12 17:44:26 gustav C Initial revision C C subroutine log_update_version write(6,'(1a)') &'$Id: update.f,v 1.38 2004/11/18 00:28:05 gustav Exp $' end subroutine log_update_version subroutine copy_box (imin, imax, jmin, jmax, from, to, verbose) implicit none integer imin, imax, jmin, jmax, verbose double precision from(imin:imax, jmin:jmax), & to(imin:imax, jmin:jmax) integer i, j if (verbose.gt. |
 | | 1) & write (*, '(14x, 1a)') & '[imin, imax] does not overlap with [ia, ib]' end if jfrom = jmin + 1 if (jfrom.lt. ja) jfrom = ja jto = jmax - 1 if (jb.lt. jto) jto = jb if (jfrom.le. |
 | | 1) & write (*, '(14x, 1a)') & '[imin, imax] does not overlap with [ia, ib]' end if end subroutine inject_h function pml(x, xmin, x1, x2, xmax, mode) implicit none double precision pml double precision x, xmin, x1, x2, xmax integer mode C C Implement all 3 PML coefficients, depending on mode. |
| www-unix.mcs.anl.gov /~meglicki/Metal_Ch-code/update.f (2259 words) |
|