QXCYL(3)

SYNOPSIS
SUBROUTINE QXCYL (LUN, KPRINT, IPASS)

NAME
qxcyl -

LIBRARY
SLATEC

KEYWORDS
QUICK CHECK

AUTHOR
(UNKNOWN)

DESCRIPTION
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F I S H P A K * * * * * * A PACKAGE OF FORTRAN SUBPROGRAMS FOR THE SOLUTION OF * * * * SEPARABLE ELLIPTIC PARTIAL DIFFERENTIAL EQUATIONS * * * * (VERSION 3 , JUNE 1979) * * * * BY * * * * JOHN ADAMS, PAUL SWARZTRAUBER AND ROLAND SWEET * * * * OF * * * * THE NATIONAL CENTER FOR ATMOSPHERIC RESEARCH * * * * BOULDER, COLORADO (80307) U.S.A. * * * * WHICH IS SPONSORED BY * * * * THE NATIONAL SCIENCE FOUNDATION * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PROGRAM TO ILLUSTRATE THE USE OF SUBROUTINE HWSCYL TO SOLVE THE EQUATION (1/R)(D/DR)(R*(DU/DR)) + (D/DZ)(DU/DZ) = (2*R*Z)**2*(4*Z**2 + 3*R**2) ON THE RECTANGLE 0 .LT. R .LT. 1, 0 .LT. Z .LT. 1 WITH THE BOUNDARY CONDITIONS U(0,Z) UNSPECIFIED 0 .LE. Z .LE. 1 (DU/DR)(1,Z) = 4*Z**4 AND (DU/DZ)(R,0) = 0 0 .LE. R .LE. 1 (DU/DZ)(R,1) = 4*R**4 . THE R-INTERVAL WILL BE DIVIDED INTO 50 PANELS AND THE Z-INTERVAL WILL BE DIVIDED INTO 100 PANELS.

ROUTINES CALLED
HWSCYL

REVISION HISTORY (YYMMDD)
800103 DATE WRITTEN
890911 Removed unnecessary intrinsics. (WRB)
890911 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
901010 Added PASS/FAIL message and cleaned up FORMATs. (RWC)
930415 Test modified to use a 64 by 128 grid. (WRB)