READ_DIME_FILEPG.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	read_dime_filepg (filec, num_nodes)
	Reads dimension of monitor files.

Function/Subroutine Documentation

read_dime_filepg()

subroutine read_dime_filepg	(	character*70	filec,
		integer*4	num_nodes
	)

Reads dimension of monitor files.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	filec	file name
[out]	num_nodes	number of nodes

Definition at line 26 of file READ_DIME_FILEPG.f90.

         
      implicit none
 
      integer*4 :: num_nodes
      integer*4 :: ileft,iright
      integer*4 :: status
 
      character*70 :: filec
      character*100000 :: input_line
 
      open(20,file=filec)
      read(20,'(A)',iostat = status) input_line
      ileft = 1
      iright = len(input_line)
      read(input_line(ileft:iright),*)num_nodes
      close(20)
       
 
      return
 

Referenced by find_monitor_position(), and read_system_position().

Here is the caller graph for this function: