Example of importing a file with a uniform field

Synopsis

This example uses the file objects and V functions to import a file in AVS field format. It reads the hydrogen.fld file.

In the following example the "cache" function is used to prevent multiple accesses to the file from different modules.

file header_file {

file data_file {
name = "$AVS_PATH<0>/data/volume/hydrogen.dat";
};
/***
In the following example "cache" function is used to prevent
multiple access to file from different modules.
***/
Mesh_Unif+Node_Data+Scalar+Byte+OPort unif_field {
ndim => cache( /* find ndim */
file_scalar_ascii(header_file,
file_find_expr(header_file,0,"ndim[ ]*=[ ]*"),3)
);
int dim1 => cache( /* find dim1 */
file_scalar_ascii(header_file,
file_find_expr(header_file,0,"dim1[ ]*=[ ]*"),3)
);
int dim2 => cache( /* find dim2 */
file_scalar_ascii(header_file,
file_find_expr(header_file,0,"dim2[ ]*=[ ]*"),3)
);
int dim3 => cache( /* find dim3 */
file_scalar_ascii(header_file,
file_find_expr(header_file,0,"dim3[ ]*=[ ]*"),3)
);

dims => {dim1,dim2,dim3}; /* field dims array */

nspace => cache( /* find nspace */
file_scalar_ascii(header_file,
file_find_expr(header_file,0,"nspace[ ]*=[ ]*"),3)
);

points=>{0,0,0,dim1-1,dim2-1,dim3-1};

!node_data[0] {
veclen => cache( /* find veclen */
file_scalar_ascii(header_file,
file_find_expr(header_file,0,"veclen[ ]*=[ ]*"),3)
);

values => file_obj_bin(data_file, 3, 1); /* node data */
};
};