! TITLE: weld_fillet1.parm (ISS) ! !--------------------------------------------------------------------------- ! Rev - RELEASED 09/02/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This parameter file is for the 1st weld fillet, 'weld_fillet1.mac'. ! ! !--------------------------------------------------------------------------- ! ! !--------------------- a.) Part Name Selection Variable -------------------- ! name='weld_1' arry_nam='weld1' ! !--------------------------- b.) Model C.S. Names -------------------------- ! ct_name='CSwf10' ! cartesian cyl_name='CSwf11' ! cylindrical sph_name='CSwf12' ! spherical ! !--------------------------------------------------------------------------- ! *if,modl_num,eq,6,then parm_val,'stat068','R5','r1' parm_val,'stat068','H5','l1' l1=2*l1 parm_val,'hous_slv','W1','w1' *else w1=0.002 l2=.020 *endif ! l2=0.020