new
restore fl_Dean0
def writeev1
array m_1(1)
status1 = open('vol_stra1.txt',1,1)
p_zz = zone_head
loop while p_zz # null
m_1(1) = string(-(z_sxx(p_zz)+z_pp(p_zz)))
status1 = write(m_1,1)
p_zz = z_next(p_zz)
endloop
status1 = close
end
writeev1
def writeev2
array m_2(1)
status2 = open('vol_stra2.txt',1,1)
p_zz = zone_head
loop while p_zz # null
m_2(1) = string(z_sxx(p_zz))
status2 = write(m_2,1)
p_zz = z_next(p_zz)
endloop
status2 = close
end
writeev2
