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 1322 of file LoadContext.f90.

1324  real(DP), dimension(:, :), pointer, &
1325  contiguous, intent(inout) :: auxvar
1326  character(len=*), intent(in) :: mempath
1327  integer(I4B) :: isize
1328  call get_isize('AUXVAR', mempath, isize)
1329  if (isize > -1) then
1330  call mem_setptr(auxvar, 'AUXVAR', mempath)
1331  else
1332  call mem_allocate(auxvar, 0, 0, 'AUXVAR', mempath)
1333  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 1303 of file LoadContext.f90.

1305  type(CharacterStringType), dimension(:), pointer, &
1306  contiguous, intent(inout) :: charstr1d
1307  character(len=*), intent(in) :: varname
1308  character(len=*), intent(in) :: mempath
1309  integer(I4B), intent(in) :: strlen
1310  integer(I4B) :: isize
1311  call get_isize(varname, mempath, isize)
1312  if (isize > -1) then
1313  call mem_setptr(charstr1d, varname, mempath)
1314  else
1315  call mem_allocate(charstr1d, strlen, 0, varname, mempath)
1316  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 1286 of file LoadContext.f90.

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

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