MODFLOW 6  version 6.8.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 1024 of file LoadContext.f90.

1026  real(DP), dimension(:, :), pointer, &
1027  contiguous, intent(inout) :: auxvar
1028  character(len=*), intent(in) :: mempath
1029  integer(I4B) :: isize
1030  call get_isize('AUXVAR', mempath, isize)
1031  if (isize > -1) then
1032  call mem_setptr(auxvar, 'AUXVAR', mempath)
1033  else
1034  call mem_allocate(auxvar, 0, 0, 'AUXVAR', mempath)
1035  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 1005 of file LoadContext.f90.

1007  type(CharacterStringType), dimension(:), pointer, &
1008  contiguous, intent(inout) :: charstr1d
1009  character(len=*), intent(in) :: varname
1010  character(len=*), intent(in) :: mempath
1011  integer(I4B), intent(in) :: strlen
1012  integer(I4B) :: isize
1013  call get_isize(varname, mempath, isize)
1014  if (isize > -1) then
1015  call mem_setptr(charstr1d, varname, mempath)
1016  else
1017  call mem_allocate(charstr1d, strlen, 0, varname, mempath)
1018  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 988 of file LoadContext.f90.

990  integer(I4B), pointer, intent(inout) :: intptr
991  character(len=*), intent(in) :: varname
992  character(len=*), intent(in) :: mempath
993  integer(I4B) :: isize
994  call get_isize(varname, mempath, isize)
995  if (isize > -1) then
996  call mem_setptr(intptr, varname, mempath)
997  else
998  call mem_allocate(intptr, varname, mempath)
999  intptr = 0
1000  end if
Here is the call graph for this function:

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