SPEED
READ_FILEPG.f90
Go to the documentation of this file.
1! Copyright (C) 2012 The SPEED FOUNDATION
2! Author: Ilario Mazzieri
3!
4! This file is part of SPEED.
5!
6! SPEED is free software; you can redistribute it and/or modify it
7! under the terms of the GNU Affero General Public License as
8! published by the Free Software Foundation, either version 3 of the
9! License, or (at your option) any later version.
10!
11! SPEED is distributed in the hope that it will be useful, but
12! WITHOUT ANY WARRANTY; without even the implied warranty of
13! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14! Affero General Public License for more details.
15!
16! You should have received a copy of the GNU Affero General Public License
17! along with SPEED. If not, see <http://www.gnu.org/licenses/>.
18
28
29 subroutine read_filepg(filec,num_nodes, x,y,z)
30
31 implicit none
32
33 character*70 :: filec
34 character*100000 :: input_line
35
36 integer*4 :: i,trash, num_nodes
37 integer*4 :: ileft,iright, status
38
39 real*8 :: length_edge1,length_edge2,length_edge3
40
41 real*8, dimension(num_nodes) :: x,y,z
42
43
44 open(20,file=filec)
45 read(20,'(A)',iostat = status) input_line
46 ileft = 1
47 iright = len(input_line)
48 read(input_line(ileft:iright),*)num_nodes
49
50 do i = 1,num_nodes
51 read(20,'(A)',iostat = status) input_line
52 if (status.ne.0) exit
53 ileft = 1
54 iright = len(input_line)
55 read(input_line(ileft:iright),*)trash,x(i),y(i),z(i)
56 enddo
57
58 close(20)
59
60 return
61
62 end subroutine read_filepg
63
subroutine read_filepg(filec, num_nodes, x, y, z)
Reads LS.input file.