MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
loadcontextmodule::setptr Interface Reference
Collaboration diagram for loadcontextmodule::setptr:
Collaboration graph

Private Member Functions

subroutine setptr_int (intptr, varname, mempath)
 set intptr to varname More...
 
subroutine setptr_charstr1d (charstr1d, varname, mempath, strlen)
 set charstr1d pointer to varname More...
 
subroutine setptr_auxvar (auxvar, mempath)
 set auxvar pointer More...
 

Detailed Description

Definition at line 45 of file LoadContext.f90.

Member Function/Subroutine Documentation

◆ setptr_auxvar()

subroutine loadcontextmodule::setptr::setptr_auxvar ( real(dp), dimension(:, :), intent(inout), pointer, contiguous  auxvar,
character(len=*), intent(in)  mempath 
)
private

Definition at line 1319 of file LoadContext.f90.

1321  real(DP), dimension(:, :), pointer, &
1322  contiguous, intent(inout) :: auxvar
1323  character(len=*), intent(in) :: mempath
1324  integer(I4B) :: isize
1325  call get_isize('AUXVAR', mempath, isize)
1326  if (isize > -1) then
1327  call mem_setptr(auxvar, 'AUXVAR', mempath)
1328  else
1329  call mem_allocate(auxvar, 0, 0, 'AUXVAR', mempath)
1330  end if
subroutine, public get_isize(name, mem_path, isize)
@ brief Get the number of elements for this variable
Here is the call graph for this function:

◆ setptr_charstr1d()

subroutine loadcontextmodule::setptr::setptr_charstr1d ( type(characterstringtype), dimension(:), intent(inout), pointer, contiguous  charstr1d,
character(len=*), intent(in)  varname,
character(len=*), intent(in)  mempath,
integer(i4b), intent(in)  strlen 
)
private

Definition at line 1300 of file LoadContext.f90.

1302  type(CharacterStringType), dimension(:), pointer, &
1303  contiguous, intent(inout) :: charstr1d
1304  character(len=*), intent(in) :: varname
1305  character(len=*), intent(in) :: mempath
1306  integer(I4B), intent(in) :: strlen
1307  integer(I4B) :: isize
1308  call get_isize(varname, mempath, isize)
1309  if (isize > -1) then
1310  call mem_setptr(charstr1d, varname, mempath)
1311  else
1312  call mem_allocate(charstr1d, strlen, 0, varname, mempath)
1313  end if
Here is the call graph for this function:

◆ setptr_int()

subroutine loadcontextmodule::setptr::setptr_int ( integer(i4b), intent(inout), pointer  intptr,
character(len=*), intent(in)  varname,
character(len=*), intent(in)  mempath 
)
private

Definition at line 1283 of file LoadContext.f90.

1285  integer(I4B), pointer, intent(inout) :: intptr
1286  character(len=*), intent(in) :: varname
1287  character(len=*), intent(in) :: mempath
1288  integer(I4B) :: isize
1289  call get_isize(varname, mempath, isize)
1290  if (isize > -1) then
1291  call mem_setptr(intptr, varname, mempath)
1292  else
1293  call mem_allocate(intptr, varname, mempath)
1294  intptr = 0
1295  end if
Here is the call graph for this function:

The documentation for this interface was generated from the following file: