Routine iscoput

Description

This routine puts the virtual coordinates from an intermediate representation into the virtual coordinate region of a certain subface of a certain block, see fig. 9.

  
Figure 9: Routine iscoput

These coordinates are numbered in the increasing i and j directions. Coordinates are numbered in the tangential direction first, then in a direction normal to the interface. The x coordinates occur first then the y coordinates. The intermediate representation may be treated as a multi-dimensional array as follows:

  vco(1:ntang, 1:nvirtual, 1:ndim)

Heading

subroutine iscoput(iblock, iface, isubface, 
                   ni, nj, nvirtual, ndim, 
                   nblocks, nfaces, maxnsubfaces, 
                   nsubfaces, subfaces,
                   coor, vco)

Parameters

integer

iblock, iface, isubface, ni, nj, nvirtual, ndim, nblocks, nfaces, maxnsubfaces

integer

nsubfaces(1:nblocks. 1:nfaces)

integer

subfaces(1:nblocks, 1:nfaces, 1:maxnsubfaces, *)

double precision

coor(1-nvirtual:ni+1+nvirtual, 1-nvirtual:nj+1+nvirtual, 1:ndim)

double precision

vco(*)

-

iblock

target block number

iface

target face number

isubface

target subface number

nvirtual

number of virtual rows of coordinates to put

ni

i-dimension of block iblock

nj

j-dimension of block iblock

ndim

dimension of the problem

nblocks

number of blocks

nfaces

number of faces

maxnsubfaces

dimensioning parameter of the subfaces array

nsubfaces

reserved

subfaces

reserved

coor

local coordinate array of block iblock

vco

intermediate representation of virtual coordinates

Input

The array vco of virtual coordinates has been filled

Output

The virtual coordinates of subface (iblock,iface,isubface) have been filled.

See also

isfilv , istrco , isexco , iscoget

Remarks

WARNING! This routine is not allowed to allocate any temporary storage.