nrutil::reallocate Interface Reference

Public Member Functions
real(r4) function, dimension(:), pointer	reallocate_rv (p, n)
real(r4) function, dimension(:,:), pointer	reallocate_rm (p, n, m)
integer(i8b) function, dimension(:), pointer	reallocate_iv (p, n)
integer(i8b) function, dimension(:,:), pointer	reallocate_im (p, n, m)
character(len=1) function, dimension(:), pointer	reallocate_hv (p, n)

Detailed Description

Definition at line 37 of file nrutil.F.

Member Function/Subroutine Documentation

reallocate_hv()

character (len=1) function, dimension(:), pointer nrutil::reallocate::reallocate_hv	(	character (len=1), dimension(:), pointer	p,
		integer(i8b), intent(in)	n )

Definition at line 385 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Reallocate a pointer of a character vector to a new size,           !
!  preserving its previous content.                                    !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      character (len=1), pointer :: p(:)
      character (len=1), pointer :: reallocate_hv(:)
 
      integer(i8b), intent(in) :: n
!
!  Local variable declarations.
!
      integer(i8b) :: nold, ierr
!
!-----------------------------------------------------------------------
!  Reallocate pointer for a integer vector.
!-----------------------------------------------------------------------
!
      ALLOCATE (reallocate_hv(n),stat=ierr)
      IF (ierr.ne.0)                                                    &
     &  CALL nrerror ('REALLOCATE_HV: error while allocating memory')
      IF (.not.ASSOCIATED(p)) RETURN
      nold=SIZE(p)
      reallocate_hv(1:min(nold,n))=p(1:min(nold,n))
      DEALLOCATE (p)
 
      RETURN

References nrutil::nrerror(), and nrutil::reallocate_hv().

Here is the call graph for this function:

reallocate_im()

integer(i8b) function, dimension(:,:), pointer nrutil::reallocate::reallocate_im	(	integer(i8b), dimension(:,:), pointer	p,
		integer(i8b), intent(in)	n,
		integer(i8b), intent(in)	m )

Definition at line 457 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Reallocate a pointer of a integer matrix to a new size, preserving  !
!  its previous content.                                               !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), pointer :: p(:,:)
      integer(i8b), pointer :: reallocate_im(:,:)
 
      integer(i8b), intent(in) :: n, m
!
!  Local variable declarations.
!
      integer(i8b) :: nold, mold, ierr
!
!-----------------------------------------------------------------------
!  Reallocate pointer for a integer matrix.
!-----------------------------------------------------------------------
!
      ALLOCATE (reallocate_im(n,m), stat=ierr)
      IF (ierr.ne.0)                                                    &
     &  CALL nrerror ('REALLOCATE_IM: error while allocating memory')
      IF (.not.ASSOCIATED(p)) RETURN
      nold=SIZE(p,1)
      mold=SIZE(p,2)
      reallocate_im(1:min(nold,n),1:min(mold,m))=                       &
     &                                   p(1:min(nold,n),1:min(mold,m))
      DEALLOCATE (p)
 
      RETURN

References nrutil::nrerror(), and nrutil::reallocate_im().

Here is the call graph for this function:

reallocate_iv()

integer(i8b) function, dimension(:), pointer nrutil::reallocate::reallocate_iv	(	integer(i8b), dimension(:), pointer	p,
		integer(i8b), intent(in)	n )

Definition at line 350 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Reallocate a pointer of a integer vector to a new size, preserving  !
!  its previous content.                                               !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), pointer :: p(:)
      integer(i8b), pointer :: reallocate_iv(:)
 
      integer(i8b), intent(in) :: n
!
!  Local variable declarations.
!
      integer(i8b) :: nold, ierr
!
!-----------------------------------------------------------------------
!  Reallocate pointer for a integer vector.
!-----------------------------------------------------------------------
!
      ALLOCATE (reallocate_iv(n), stat=ierr)
      IF (ierr.ne.0)                                                    &
     &  CALL nrerror ('REALLOCATE_IV: error while allocating memory')
      IF (.not.ASSOCIATED(p)) RETURN
      nold=SIZE(p)
      reallocate_iv(1:min(nold,n))=p(1:min(nold,n))
      DEALLOCATE (p)
 
      RETURN

References nrutil::nrerror(), and nrutil::reallocate_iv().

Here is the call graph for this function:

reallocate_rm()

real(r4) function, dimension(:,:), pointer nrutil::reallocate::reallocate_rm	(	real(r4), dimension(:,:), pointer	p,
		integer(i8b), intent(in)	n,
		integer(i8b), intent(in)	m )

Definition at line 420 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Reallocate a pointer of a single precision matrix to a new size,    !
!  preserving its previous content.                                    !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      real(r4), pointer :: p(:,:)
      real(r4), pointer :: reallocate_rm(:,:)
 
      integer(i8b), intent(in) :: n, m
!
!  Local variable declarations.
!
      integer(i8b) :: nold, mold, ierr
!
!-----------------------------------------------------------------------
!  Reallocate pointer for a single precision matrix.
!-----------------------------------------------------------------------
!
      ALLOCATE (reallocate_rm(n,m), stat=ierr)
      IF (ierr.ne.0)                                                    &
     &  CALL nrerror ('REALLOCATE_RM: error while allocating memory')
      IF (.not.ASSOCIATED(p)) RETURN
      nold=SIZE(p,1)
      mold=SIZE(p,2)
      reallocate_rm(1:min(nold,n),1:min(mold,m))=                       &
     &                                   p(1:min(nold,n),1:min(mold,m))
      DEALLOCATE (p)
 
      RETURN

References nrutil::nrerror(), and nrutil::reallocate_rm().

Here is the call graph for this function:

reallocate_rv()

real(r4) function, dimension(:), pointer nrutil::reallocate::reallocate_rv	(	real(r4), dimension(:), pointer	p,
		integer(i8b), intent(in)	n )

Definition at line 315 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Reallocate a pointer of a single precision vector to a new size,    !
!  preserving its previous content.                                    !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      real(r4), pointer :: p(:)
      real(r4), pointer :: reallocate_rv(:)
 
      integer(i8b), intent(in) :: n
!
!  Local variable declarations.
!
      integer(i8b) :: nold, ierr
!
!-----------------------------------------------------------------------
!  Reallocate pointer for a single precision vector.
!-----------------------------------------------------------------------
!
      ALLOCATE (reallocate_rv(n), stat=ierr)
      IF (ierr.ne.0)                                                    &
     &  CALL nrerror ('REALLOCATE_RV: error while allocating memory')
      IF (.not.ASSOCIATED(p)) RETURN
      nold=SIZE(p)
      reallocate_rv(1:min(nold,n))=p(1:min(nold,n))
      DEALLOCATE (p)
 
      RETURN

References nrutil::nrerror(), and nrutil::reallocate_rv().

Here is the call graph for this function:

---

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

• ROMS/Utility/nrutil.F