rest 57.sav
def array_initiate
array line(40000)
line_ptr=0
end
@array_initiate
;------------------------------------------------------------------------
def force_outp
command
sel recover surface surfx 1 0 0
sel recover sres
endcommand
sp=s_head
loop while sp # null
np=s_node(sp,3)
nid=nd_id(np)
_xcent=nd_pos(np,1,1)
_ycent=nd_pos(np,1,2)
_zcent=nd_pos(np,1,3)
if s_type(sp)=6 then
if _zcent < -44.9 then
if _zcent > -45.1 then
mm = sst_sres(sp,3,1)
xx = _xcent
yy = _ycent
zz = _zcent
nnid=nid
line_ptr=line_ptr+1
line(line_ptr)=string(mm) + ',' +string(xx) + ',' + string(yy) + ',' +string(zz) + ',' +string(nnid)
endif
endif
endif
sp=s_next(sp)
endloop
end
@force_outp
;--------------------------------------------------------------------------------
def file_write
filename=filename
filename= 'mmmmmmm_nx.txt'
file_status = open(filename, 1, 1)
file_status = write(line, line_ptr)
file_status = close
;filename2=filename2
;file_status = open(filename2, 1, 1)
;file_status = write(line2, line_ptr)
;file_status = close
end
file_write
;--------------------------
;rest exca-c5
;call pile_data
;set @filename='pile_mz5.txt' @filename2='pile_xdis5.txt'
;@file_write