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

1081  real(DP), dimension(:, :), pointer, &
1082  contiguous, intent(inout) :: auxvar
1083  character(len=*), intent(in) :: mempath
1084  integer(I4B) :: isize
1085  call get_isize('AUXVAR', mempath, isize)
1086  if (isize > -1) then
1087  call mem_setptr(auxvar, 'AUXVAR', mempath)
1088  else
1089  call mem_allocate(auxvar, 0, 0, 'AUXVAR', mempath)
1090  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 1060 of file LoadContext.f90.

1062  type(CharacterStringType), dimension(:), pointer, &
1063  contiguous, intent(inout) :: charstr1d
1064  character(len=*), intent(in) :: varname
1065  character(len=*), intent(in) :: mempath
1066  integer(I4B), intent(in) :: strlen
1067  integer(I4B) :: isize
1068  call get_isize(varname, mempath, isize)
1069  if (isize > -1) then
1070  call mem_setptr(charstr1d, varname, mempath)
1071  else
1072  call mem_allocate(charstr1d, strlen, 0, varname, mempath)
1073  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 1043 of file LoadContext.f90.

1045  integer(I4B), pointer, intent(inout) :: intptr
1046  character(len=*), intent(in) :: varname
1047  character(len=*), intent(in) :: mempath
1048  integer(I4B) :: isize
1049  call get_isize(varname, mempath, isize)
1050  if (isize > -1) then
1051  call mem_setptr(intptr, varname, mempath)
1052  else
1053  call mem_allocate(intptr, varname, mempath)
1054  intptr = 0
1055  end if
Here is the call graph for this function:

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