READ_FILE_TRAV_POINT.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	read_file_trav_point (filec, nmonitors_pgm, n_monitor_pgm, dist_monitor_pgm)
	Reads files such as MLST.input, MLST.position or MPGM.input.

Function/Subroutine Documentation

read_file_trav_point()

subroutine read_file_trav_point	(	character*70	filec,
		integer*4	nmonitors_pgm,
		integer*4, dimension(nmonitors_pgm)	n_monitor_pgm,
		real*8, dimension(nmonitors_pgm)	dist_monitor_pgm
	)

Reads files such as MLST.input, MLST.position or MPGM.input.

Author

Ilario Mazzieri

Date

September, 2017

Version

1.0

Parameters

[in]	filec	file name to read
[in]	nmonitors_pgm	number of monitors
[out]	n_monitor_pgm	id monitor number (id spectral node)
[out]	dist_monitor_pgm	distance from first monitor

Definition at line 28 of file READ_FILE_TRAV_POINT.f90.

 
      implicit none
 
      character*70 :: filec
      character*100000 :: input_line
 
      integer*4 :: nmonitors_pgm
      integer*4 :: i
      integer*4 :: trash
      integer*4 :: ileft,iright
      integer*4 :: status
 
      integer*4,dimension(nmonitors_pgm) :: n_monitor_pgm
      
      real*8  :: trash_real
      real*8,dimension(nmonitors_pgm) :: dist_monitor_pgm
 
 
      open(20,file=filec)
      read(20,'(A)',iostat = status) input_line
      ileft = 1
      iright = len(input_line)
      read(input_line(ileft:iright),*) nmonitors_pgm
 
 !     write(*,*) nmonitors_pgm
 !     read(*,*)
      
      do i = 1,nmonitors_pgm
         read(20,'(A)',iostat = status) input_line
         if (status.ne.0) exit
 
         ileft = 1
         iright = len(input_line)
         read(input_line(ileft:iright),*) trash, n_monitor_pgm(i), trash_real, trash_real, trash_real, dist_monitor_pgm(i)
 
       enddo
                    
      close(20)
 
      return