Download SEPRAN -- SEPRA ANALYSIS -

PG
subroutines PRIAVS and PRTAVS
20.4.2
April 1996
20.4.2
subroutine PRTAVS
Description
Special subroutine to translate (x, y, t) data towards a 3D mesh in AVS. The mesh consists of
prisms.
Using the AVS slicer one can see how a quantity changes in time.
This subroutine writes a solution array or array of special structure to the file sepavs.xxx.
This possibility is meant for a SEPRAN-AVS interface.
The 2D SEPRAN mesh is mapped onto a mesh of linear triangles. The 2D mesh is repeated ntime
times to construct a 3D mesh consisting of prisms.
Call
CALL PRTAVS ( ICHPRT, KMESH, KPROB, ISOL, NTIME, ISEQ, TIME, SCALE )
INTEGER ICHPRT, KMESH(∗), KPROB(∗), NTIME, ISOL(5,NTIME), ISEQ
DOUBLE PRECISION TIME(NTIME), SCALE
ICHPRT choice parameter with the following options:
0 Only time axis is scaled. Scaling according to the minimum of xmax-xmin, ymax-ymin.
1 time axis and either x or y is scaled. The coordinate direction with minimum width and
the time axis is scaled to SCALE with maximum width.
KMESH Standard SEPRAN array, containing information of the mesh.
KPROB Standard SEPRAN array, containing information of the problem definition.
ISOL Standard SEPRAN array containing information of the various solution arrays or vectors of
special structure to be written.
Each ISOL(.,k) refers to a new time step.
ISEQ Sequence number of the vector to be written. This number is used to create the suffix xxx
in the file name.
NTIME Number of time steps stored in ISOL and TIME.
TIME Array of actual times
SCALE scale factor for ichprt=1
Input
The arrays TIME, KMESH, KPROB and ISOL must have been filled.
The parameters ISEQ, NTIME and SCALE must have a value.
Output
A file sepavs.xxx has been created.