get3DP1_input - set up to read a 3D tetrahedral mesh.

Calling sequence:

get3DP1_input(params_list);

Parameters:

params_list - A list of scalar input parameters.

Synopsis:

Examples:

> # set up to read input data: copies rdinpt.f to ./source;
> get3DP1_input(params_list);
rdinpt.f
rdpara.f
indata_sample