subroutine

` Set global mesh packing exponent. For instance a value `

` > 1 increases the density of nodes near the edge. `

real*8, intent(in) :: p

subroutine

` Set switch for large solution support width. A value of 1 `

` forces the support to be symmetric about singular surfaces. `

` Default is asymmetric and determined by distance between the `

` singular surfaces. `

integer, intent(in) :: k

subroutine

` Set the normalized large support width. Should be < 1.0, that `

` is the the large soutions should not overlap neighboring singular `

` surfaces. `

real*8, intent(in) :: p

subroutine

` Force the mesh to be uniform. Default is packed mesh `

` near the axis and about singular surfaces. `

integer, parameter :: r8=selected_real_kind(12,100)

integer, intent(in) :: k

subroutine

` Select solver: 0 for built-in, > 0 for `

` LAPACK. `

integer, intent(in) :: k

subroutine

` Set the wall distance normalized to the minor radius from `

` the plasma edge: PB <= 0 for wall on plasma, 1.0 > PB <=10.0 `

` for conformal wall, and PB > 10.0 for wall at infinity. `

real*8, intent(in) :: pb

subroutine

integer, parameter :: r8 = selected_real_kind(12,100)

` Set the toroidal mode number. `

integer, intent(in) :: j

subroutine

` Set the number or radial nodes. For a convergence study take `

` J=[N1, N2, ... 0] (last element must be zero). `

integer, intent(in) :: jdim ` no of runs `

integer, intent(in) :: j(*) ` no of radial elements in run `

subroutine

` Select the singular surfaces. J is typically an array of 0's and `

` 1's: 0's for rational surfaces that are skipped and 1's for `

` rational surfaces that are singular, counting from the magnetic `

` axis outwards. For instance, to select the 3/2 and 4/2 surfaces `

` for a monotonically increasing q profile from 0.9 to 6.4, J should `

` be set to [0, 1, 1, 0,...]. `

integer, intent(in) :: jdim ` no of rational surfaces `

integer, intent(in) :: j(*) ` activation flag for each rational surface. `

subroutine

` Set the conducting wall on the plasma edge. This option overrides `

` pstSetB: 1=wall on plasma. `

integer, intent(in) :: j

subroutine

` Set wall at inifinity. This option overrides `

` pstSetB: 1=wall at infinity. `

integer, intent(in) :: j

Send comments about this document to pletzer@txcorp.com. Thu Feb 13 14:30:52 2003