READ_FILEPG.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	read_filepg (filec, num_nodes, x, y, z)
	Reads LS.input file.

Function/Subroutine Documentation

read_filepg()

subroutine read_filepg	(	character*70	filec,
		integer*4	num_nodes,
		real*8, dimension(num_nodes)	x,
		real*8, dimension(num_nodes)	y,
		real*8, dimension(num_nodes)	z
	)

Reads LS.input file.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	filec	file name
[in]	num_nodes	number of monitored nodes
[out]	x	x-coord. of the monitor
[out]	y	y-coord. of the monitor
[out]	z	z-coord. of the monitor

Definition at line 29 of file READ_FILEPG.f90.

 
      implicit none
 
      character*70 :: filec
      character*100000 :: input_line
 
      integer*4 :: i,trash, num_nodes
      integer*4 :: ileft,iright, status
      
      real*8 :: length_edge1,length_edge2,length_edge3
 
      real*8, dimension(num_nodes) :: x,y,z
 
 
      open(20,file=filec)
      read(20,'(A)',iostat = status) input_line
      ileft = 1
      iright = len(input_line)
      read(input_line(ileft:iright),*)num_nodes 
 
      do i = 1,num_nodes
        read(20,'(A)',iostat = status) input_line
        if (status.ne.0) exit
        ileft = 1
        iright = len(input_line)
        read(input_line(ileft:iright),*)trash,x(i),y(i),z(i) 
      enddo
                    
      close(20)
 
      return
 

Referenced by find_monitor_position().

Here is the caller graph for this function: