Open and read first line of surface_node_point file
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(filetype), | intent(in) | :: | files |
subroutine setup_nodefile(files)
!< Open and read first line of surface_node_point file
implicit none
type(filetype), intent(in) :: files
integer :: ios
open(files%NODESURF_FILE_UNIT, file=files%surface_node_points, status='old', IOSTAT=ios)
if(ios/=0) then
print*, "!!! -->file containg surface nodepoints not found"
Fatal_error
end if
read(files%NODESURF_FILE_UNIT, *) n_surfnodes
end subroutine setup_nodefile