$title "*GenData(analysis_title)" $no_meshes *GenData(number_of_meshes) $mesh_name "*GenData(mesh_name)" $space_dimension 3 $element_shape *GenData(element_shape_for_this_mesh) $element_no_nodes *GenData(element_number_of_nodes) $no_dof_per_node *GenData(number_of_DOFs_per_node) $no_elements *nelem $element_names_and_connectivities *loop elems *ElemsNum *GenData(element_name) *ElemsConec *end elems $element_attributes ! material, cross_section, initial stress, local system *set cond assign_cross_section *elems *loop elems *ElemsNum *ElemsMat *cond(cross_section_number) 0 1 *end elems $no_materials *nmats $materials ! name, E, G *loop materials *MatNum *MatProp(type) *MatProp(Elasticity_modulus,real) *MatProp(Transverse_shear_modulus,real) *end materials $no_geometries *GenData(number_of_cross_sections_to_be_defined) $geometries ! cross_section_name, A, J11, J22, Jt, J12, G1, G2, S1, S2 *set cond assign_cross_section *elems *set var ngeom=GenData(number_of_cross_sections_to_be_defined,int) *for(counter=1;counter<=ngeom;counter=counter+1) *loop elems *if(cond(cross_section_number,int)==counter) *cond(cross_section_number,int) *cond(section_type) *cond(A,real) *cond(I11,real) *cond(I22,real) *cond(It,real) *cond(I12,real) *cond(G1,real) *cond(G2,real) *cond(S1,real) *cond(S2,real) *break *endif *end elems *endfor $no_initial_stresses 0 $no_element_local_systems *GenData(number_of_local_systems_to_be_defined) $element_local_systems *set cond assign_local_system *elems *set var nlocsys=GenData(number_of_local_systems_to_be_defined,int) *for(counter=1;counter<=nlocsys;counter=counter+1) *loop elems *if(cond(local_system_number,int)==counter) *cond(local_system_number,int) *cond(local_system_name) *cond(loc_sys_vector_component_1,real) *cond(loc_sys_vector_component_2,real) *cond(loc_sys_vector_component_3,real) *break *endif *end elems *endfor $no_nodes *npoin $nodal_coordinates *loop nodes *NodesNum *NodesCoord(1,real) *NodesCoord(2,real) *NodesCoord(3,real) *end nodes $nodal_dof_codes *set cond Apply_constraint_on_points *nodes *loop nodes *NodesNum *cond(Ux) *cond(Uy) *cond(Uz) *cond(theta_x) *cond(theta_y) *cond(theta_z) *end nodes $no_load_sets 1 $load_name "*GenData(load_name_or_description)" $no_loaded_elements !(load_set = 1) *set cond apply_distributed_load *elems *CondNumEntities *if(CondNumEntities>0) $element_forces !(element,qx,qy,qz,mx,my,mz) (on global system) *loop elems *OnlyInCond *ElemsNum *cond(qx,real) *cond(qy,real) *cond(qz,real) *cond(mx,real) *cond(my,real) *cond(mz,real) *end elems *endif $no_loaded_nodes !(load_set = 1) *set cond apply_concentrated_load *nodes *CondNumEntities *if(CondNumEntities>0) $nodal_forces !(node,Fx,Fy,Fz,Mx,My,Mz) (on global system) *loop nodes *OnlyInCond *NodesNum *cond(Fx,real) *cond(Fy,real) *cond(Fz,real) *cond(Mx,real) *cond(My,real) *cond(Mz,real) *end nodes *endif $no_prescribed_nodes !(load_set = 1) 0 $no_runs *GenData(number_of_runs_to_be_performed_on_the_mesh) $run_name "*GenData(run_title)" $run_type_variables !(problem_type, analysis_type, algorithm_type) *GenData(problem_type) *GenData(analysis_type) *GenData(algorithm_type) $kinematics !( second_order , exact , linear ) *GenData(kinematics) $initial_conditions *GenData(initial_conditions) $no_steps *GenData(number_of_steps) $step_control_variables !(step, no_substeps, final_time, final_factor, approach_crit_state, autom_step_length) *GenData(number_of_steps) *GenData(number_of_substeps) *GenData(time_at_the_end_of_the_step) *GenData(load_factor_at_the_end_of_the_step) *GenData(approach_critical_point_in_case_of_instability?) *GenData(automatic_substep_length?) $output_control_variables *GenData(output_file_format) *GenData(print_results) $end