https://github.com/geodynamics/citcoms
Tip revision: f8f8ac9d2debc000a1b14bbe2468aa3a3b16d3bd authored by Rajesh Kommu on 18 April 2014, 22:33:36 UTC
Minor cleanup related to caps_per_proc removal
Minor cleanup related to caps_per_proc removal
Tip revision: f8f8ac9
VelocityRTFtoXYZ2D.net
//
// time: Wed Sep 22 09:53:40 2004
//
// version: 3.2.0 (format), 4.3.2 (DX)
//
//
// Begin MDF
// MODULE VelocityRTFtoXYZ2D
// CATEGORY Macros
// DESCRIPTION new macro
// INPUT input_1; field; (no default);
// OUTPUT output_1; value or value list or field;
// End MDF
// workspace: width = 500, height = 400
// layout: snap = 0, width = 50, height = 50, align = NN
//
macro VelocityRTFtoXYZ2D(
input_1
) -> (
output_1
) {
//
// node Input[23]: x = 0, y = 0, inputs = 0, label = Input
// parameter: position = 1, name = 'input_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1
//
VelocityRTFtoXYZ2D_Input_23_out_1 = input_1;
//
// node Mark[20]: x = 89, y = 80, inputs = 2, label = Mark
// input[2]: defaulting = 0, visible = 1, type = 32, value = "positions"
//
VelocityRTFtoXYZ2D_Mark_20_out_1[cache: 0] =
Mark(
VelocityRTFtoXYZ2D_Input_23_out_1,
"positions"
) [instance: 20, cache: 1];
//
// node Compute[87]: x = 0, y = 88, inputs = 3, label = Compute
// input[1]: defaulting = 0, visible = 0, type = 32, value = "[$0.x*cos($1.x)*cos($1.y)-$0.y*sin($1.y),$0.x*cos($1.x)*sin($1.y)+$0.y*cos($1.y),-$0.x*sin($1.x)]"
// expression: value = [v.x*cos(p.x)*cos(p.y)-v.y*sin(p.y),v.x*cos(p.x)*sin(p.y)+v.y*cos(p.y),-v.x*sin(p.x)]
// name[2]: value = v
// name[3]: value = p
//
VelocityRTFtoXYZ2D_Compute_87_out_1[cache: 0] =
Compute(
"[$0.x*cos($1.x)*cos($1.y)-$0.y*sin($1.y),$0.x*cos($1.x)*sin($1.y)+$0.y*cos($1.y),-$0.x*sin($1.x)]",
VelocityRTFtoXYZ2D_Input_23_out_1,
VelocityRTFtoXYZ2D_Mark_20_out_1
) [instance: 87, cache: 1];
//
// node Output[18]: x = 0, y = 168, inputs = 1, label = Output
// parameter: position = 1, name = 'output_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1
//
output_1 = VelocityRTFtoXYZ2D_Compute_87_out_1;
// network: end of macro body
}
VelocityRTFtoXYZ2D_Input_23_out_1 = NULL;
VelocityRTFtoXYZ2D_Mark_20_out_1 = NULL;
VelocityRTFtoXYZ2D_Compute_87_out_1 = NULL;