READ_FILEVS.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	read_filevs (filec, num_tria, velocity, sediments)
	Reads vs30 and thickness from VS_RS.out.

Function/Subroutine Documentation

read_filevs()

subroutine read_filevs	(	character*70	filec,
		integer*4	num_tria,
		real*8, dimension(num_tria)	velocity,
		real*8, dimension(num_tria)	sediments
	)

Reads vs30 and thickness from VS_RS.out.

Author

Ilario Mazzieri

Date

September, 2015

Version

1.0

Parameters

[in]	filec	file name for the mesh
[in]	num_tria	number of triangular elements
[out]	velocity	vs30
[out]	thickness	thickness of soft sediments

Definition at line 28 of file READ_FILEVS.f90.

 
      implicit none
 
      integer*4 :: num_tria
      integer*4 :: i
      integer*4 :: trash
 
      character*70 :: filec
      real*8, dimension(num_tria) :: velocity, sediments
 
      open(20,file=filec)
 
      do i = 1,num_tria
        read(20,*) trash, velocity(i), sediments(i)
      enddo
                    
      close(20)
 
      return
 

Referenced by make_nothonoring().

Here is the caller graph for this function: