insert_inplace Subroutine

public pure subroutine insert_inplace(iopt, t, n, c, k, x, nest, ier)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iopt
real(kind=RKIND), intent(inout) :: t(nest)
integer, intent(inout) :: n
real(kind=RKIND), intent(inout) :: c(nest)
integer, intent(in) :: k
real(kind=RKIND), intent(in) :: x
integer, intent(in) :: nest
integer, intent(out) :: ier

Source Code

      pure subroutine insert_inplace(iopt,t,n,c,k,x,nest,ier)

          integer, intent(in)        :: iopt,k,nest
          integer, intent(out)       :: ier
          real(RKIND), intent(in)    :: x
          integer, intent(inout)     :: n
          !  ..array arguments..
          real(RKIND), intent(inout) :: t(nest),c(nest)

          ! Temporary storage
          real(RKIND) :: tt(nest),cc(nest)
          integer :: nn

          ! Call insert
          call insert(iopt,t,n,c,k,x,tt,nn,cc,nest,ier)

          ! Return values
          t = tt
          c = cc
          n = nn

      end subroutine insert_inplace