55 class(*),
target,
intent(inout) :: data
56 type(
map_t),
pointer :: nm
57 integer :: j, k, neli, nnzi, ierr
59 call this%check_exists()
68 open(unit=10,
file=trim(this%fname), status=
'old', iostat=ierr)
70 write(*,
'(A,A)')
" Reading NEKTON map file ", this%fname
73 read(10, *) neli, nnzi
78 read(10, *) nm%imap(j),(nm%vertex(k, j), k=1,nm%nlv)
87 class(*),
target,
intent(in) :: data
88 real(kind=rp),
intent(in),
optional :: t
Module for file I/O operations.
subroutine map_file_write(this, data, t)
subroutine map_file_read(this, data)
Load NEKTON map file.
Interface for NEKTON map files.