nrutil::arth Interface Reference

Public Member Functions
real(r4) function, dimension(n)	arth_r (first, increment, n)
real(dp) function, dimension(n)	arth_d (first, increment, n)
integer(i8b) function, dimension(n)	arth_i (first, increment, n)

Detailed Description

Definition at line 33 of file nrutil.F.

Member Function/Subroutine Documentation

arth_d()

real(dp) function, dimension(n) nrutil::arth::arth_d	(	real(dp), intent(in)	first,
		real(dp), intent(in)	increment,
		integer(i8b), intent(in)	n )

Definition at line 198 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Array function returning an arithmetic progression, double          !
!  precision.                                                          !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), intent(in) :: n
 
      real(dp), intent(in) :: first, increment
      real(dp), dimension(n) :: arth_d
!
!  Local variable declarations.
!
      integer(i8b) :: k, k2
 
      real(dp) :: temp
!
!----------------------------------------------------------------------
!  Set arithmetic progression.
!----------------------------------------------------------------------
!
      IF (n.gt.0) arth_d(1)=first
      IF (n.le.npar_arth) THEN
        DO k=2,n
          arth_d(k)=arth_d(k-1)+increment
        END DO
      ELSE
        DO k=2,npar2_arth
          arth_d(k)=arth_d(k-1)+increment
        END DO
        temp=increment*npar2_arth
        k=npar2_arth
        DO
          IF (k.ge.n) EXIT
          k2=k+k
          arth_d(k+1:min(k2,n))=temp+arth_d(1:min(k,n-k))
          temp=temp+temp
          k=k2
        END DO
      END IF
 
      RETURN

References nrutil::arth_d(), nrutil::npar2_arth, and nrutil::npar_arth.

Here is the call graph for this function:

arth_i()

integer(i8b) function, dimension(n) nrutil::arth::arth_i	(	integer(i8b), intent(in)	first,
		integer(i8b), intent(in)	increment,
		integer(i8b), intent(in)	n )

Definition at line 247 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Integer array function returning an arithmetic progression.         !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), intent(in) :: first, increment, n
      integer(i8b), dimension(n) :: arth_i
!
!  Local variable declarations.
!
      integer(i8b) :: k, k2, temp
!
!----------------------------------------------------------------------
!  Set arithmetic progression.
!----------------------------------------------------------------------
!
      IF (n.gt.0) arth_i(1)=first
      IF (n.le.npar_arth) THEN
        DO k=2,n
          arth_i(k)=arth_i(k-1)+increment
        END DO
      ELSE
        DO k=2,npar2_arth
          arth_i(k)=arth_i(k-1)+increment
        END DO
        temp=increment*npar2_arth
        k=npar2_arth
        DO
          IF (k.ge.n) EXIT
          k2=k+k
          arth_i(k+1:min(k2,n))=temp+arth_i(1:min(k,n-k))
          temp=temp+temp
          k=k2
        END DO
      END IF
 
      RETURN

References nrutil::arth_i(), nrutil::npar2_arth, and nrutil::npar_arth.

Here is the call graph for this function:

arth_r()

real(r4) function, dimension(n) nrutil::arth::arth_r	(	real(r4), intent(in)	first,
		real(r4), intent(in)	increment,
		integer(i8b), intent(in)	n )

Definition at line 149 of file nrutil.F.

!
!=======================================================================
!                                                                      !
!  Array function returning an arithmetic progression, single          !
!  precision.                                                          !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), intent(in) :: n
 
      real(r4), intent(in) :: first, increment
      real(r4), dimension(n) :: arth_r
!
!  Local variable declarations.
!
      integer(i8b) :: k, k2
 
      real(r4) :: temp
!
!----------------------------------------------------------------------
!  Set arithmetic progression.
!----------------------------------------------------------------------
!
      IF (n.gt.0) arth_r(1)=first
      IF (n.le.npar_arth) THEN
        DO k=2,n
          arth_r(k)=arth_r(k-1)+increment
        END DO
      ELSE
        DO k=2,npar2_arth
          arth_r(k)=arth_r(k-1)+increment
        END DO
        temp=increment*npar2_arth
        k=npar2_arth
        DO
          IF (k.ge.n) EXIT
          k2=k+k
          arth_r(k+1:min(k2,n))=temp+arth_r(1:min(k,n-k))
          temp=temp+temp
          k=k2
        END DO
      END IF
 
      RETURN

References nrutil::arth_r(), nrutil::npar2_arth, and nrutil::npar_arth.

Here is the call graph for this function:

---

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

• ROMS/Utility/nrutil.F