34 character*100000 :: input_line
36 integer*4 :: i,trash, num_nodes
37 integer*4 :: ileft,iright, status
39 real*8 :: length_edge1,length_edge2,length_edge3
41 real*8,
dimension(num_nodes) :: x,y,z
45 read(20,
'(A)',iostat = status) input_line
47 iright = len(input_line)
48 read(input_line(ileft:iright),*)num_nodes
51 read(20,
'(A)',iostat = status) input_line
54 iright = len(input_line)
55 read(input_line(ileft:iright),*)trash,x(i),y(i),z(i)