READ_DIME_FILEXYZ.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	read_dime_filexyz (filec, num_nodes, num_tria)
	Reads dimension of triangular grids.

Function/Subroutine Documentation

read_dime_filexyz()

subroutine read_dime_filexyz	(	character*70	filec,
		integer*4	num_nodes,
		integer*4	num_tria
	)

Reads dimension of triangular grids.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	filec	file name of the gird
[out]	num_nodes	number of nodes
[out]	num_tira	number of triangles

Definition at line 27 of file READ_DIME_FILEXYZ.f90.

 
      implicit none
 
      integer*4 :: num_nodes,num_tria,ileft,iright,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,num_tria 
      close(20)
       
 
      return
 

Referenced by make_nothonoring().

Here is the caller graph for this function: