# VECFEM3 Reference Manual: idve97

Type: FORTRAN routine

## NAME

idve97 - reads an I-DEAS universal file of nodal results

## SYNOPSIS

CALL VEID97(
  T, LU, U, LIVEM, IVEM, LNEK, NEK, LRPARM, RPARM, LIPARM, IPARM, LDNOD, DNOD, LRDPRM, RDPARM, LIDPRM, IDPARM, LNODN, NODNUM, LNOD, NOD, LNOPRM, NOPARM, LBIG, RBIG, IBIG)
INTEGER
  LU, LIVEM, LNEK, LRPARM, LIPARM, LDNOD, LRDPRM, LIDPRM, LNODN, LNOPRM, LBIG
INTEGER
  IVEM(LIVEM), NEK(LNEK), IPARM(LIPARM), DNOD(LDNOD), IDPARM(LIDPRM), NODNUM(LNODN), IBIG(*)
DOUBLE PRECISION
  T, U(LU), RPARM(LRPARM), RDPARM(LRDPRM), NOD(LDNOD), NOPARM(LNOPRM), RBIG(LBIG)

## PURPOSE

idve97 reads an I-DEAS nodal result file (data set 55) with NDV data values and assigns the values to the geometrical nodes. In the result file the first data set is selected with time marke greater or equal T, time step counter greater or equal STEP and the load set counter STEP. Only data at the geometrical nodes specified in the result file are changed. Other nodes keep their input values. To distribute the values from the geometrical nodes onto the global nodes the routine vemu06 can be used.

## ARGUMENTS

T double precision, scalar, input/output, global
  If T>0 only data sets with time mark greater than T are considered. If T=-1 time mark is not used as a filter. On the output T gives the time mark of the read data set.
LU integer, scalar, input, local
  Length of the input solution vector, LU>=U1*N.
U double precision, array: U(LU), input/output, local
  The data values at the geometrical nodes. U(U1*(j-1)+i) is the value of the j-th component at the i-th geometrical node on the process MYPROC. Data values are modified for the geometrical node which get new values from the selected data set. The values at the other geometrical nodes are unchanged.
LIVEM integer, scalar, input, local
  Length of the integer information vector, LIVEM>= MESH+ NINFO.
IVEM integer, array: IVEM(LIVEM), input/output, local/global
  Integer information vector.
  (1)=MESH, input, local
    Start address of the mesh informations in IVEM, MESH>203+ NPROC.
  (2)=ERR, output, global
    Error number.

    0 | program terminated without error.
    77 | no data set found.
    90 | LBIG is too small.
    95 | IVEM or U is too small.
    98 | read error on unit of universal file.
    99 | fatal error.

  (5)=NIVEM, output, local
    Used length of IVEM.
  (120)=LOUT, input, local
    Unit number of the standard output file, normally 6.
  (121)=OUTCNT, input, local
    Output control flag, normally 1.

    0 | only error messages are printed.
    >0 | a protocol is printed.

  (127), input, local
    Unit of the universal file.
  (128)=U1, input, local
    Leading dimension of the input solution array, U1>=NDEG.
  (129)=N, input, global
    Number of components of the input solution.
  (137)=CASE, input/output, global
    The data set with load set counter equals CASE is the selected. If CASE<0 any load set counter is accepted. On the output the load set counter of the read data set is returned.
  (138)=STEP, input/output, global
    The data set with time step counter greater or equal STEP is selected. If STEP<0 any time step counter is accepted. On the output the time step counter of the read data set is returned.
  (200)=NPROC, input, global
    Number of processes, see combgn.
  (201)=MYPROC, input, local
    Logical process id number, see combgn.
  (202)=NMSG, input/output, global
    Message counter. The difference of the input and the output values gives the number of communications during the idve97 call.
  (204)=TIDS(1), input, global
    Begin of the list TIDS which defines the mapping of the logical process ids to the physical process ids. See combgn.
  (MESH), input, local
    Start of mesh informations, see mesh.
LNEK integer, scalar, input, local
  Length of the element array.
NEK integer, array: NEK(LNEK), input, local
  Array of the elements, see mesh.
LRPARM integer, scalar, input, local
  Length of the real parameter array.
RPARM double precision, array: RPARM(LRPARM), input, local
  Real parameter array, see mesh.
LIPARM integer, scalar, input, local
  Length of the integer parameter array.
IPARM integer, array: IPARM(LIPARM), input, local
  Integer parameter array, see mesh.
LDNOD integer, scalar, input, local
  Length of the array of the Dirichlet nodes.
DNOD integer, array: DNOD(LDNOD), input, local
  Array of the Dirichlet nodes, see mesh.
LRDPRM integer, scalar, input, local
  Length of the real Dirichlet parameter array.
RDPARM double precision, array: RDPARM(LRDPRM), input, local
  Array of the real Dirichlet parameters, see mesh.
LIDPRM integer, scalar, input, local
  Length of the integer Dirichlet parameter array.
IDPARM integer, array: IDPARM(LIDPRM), input, local
  Array of the integer Dirichlet parameters, see mesh.
LNODN integer, scalar, input, local
  Length of the array of the id numbers of the geometrical nodes.
NODNUM integer, array: NODNUM(LNODN), input, local
  Array of the id numbers of the geometrical nodes, see mesh.
LNOD integer, scalar, input, local
  Length of the array of the coordinates of the geometrical nodes.
NOD double precision, array: NOD(LNOD), input, local
  Array of the coordinates of the geometrical nodes, see mesh.
LNOPRM integer, scalar, input, local
  Length of the array of the node parameters.
NOPARM double precision, array: NOPARM(LNOPRM), input, local
  Array of the node parameters, see mesh.
LBIG integer, scalar, input, local
  Length of the real work array. It should be as large as possible.
RBIG double precision, array: RBIG(LBIG), work array, local
  Real work array.
IBIG integer, array: IBIG(*), work array, local
  Integer work array, RBIG and IBIG have to be defined by the EQUIVALENCE statement.

## EXAMPLE

See vemexamples.

## REFERENCES

[FAQ], [DATAMAN], [DATAMAN2], [LINSOL], [P_MPI], [I-DEAS].

## SEE ALSO

VECFEM, vemcompile, vemrun, vemhint, mesh, vemexamples, vemdis, idevem, veid99, vemide, vemu05.

## COPYRIGHTS

Program by L. Grosz, 1999. Copyrights by Lutz Grosz 1999. All rights reserved. More details see VECFEM.

by L. Grosz, Auckland , 6. June, 2000.