upgrade_ixint.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	upgrade_ixint (inter_cand, nelemint, new_size)

Function/Subroutine Documentation

upgrade_ixint()

subroutine upgrade_ixint	(	type(inter_cand_), intent(inout)	inter_cand,
		integer, intent(in)	nelemint,
		integer, intent(in)	new_size )

Parameters

[in]	nelemint	number of pair of candidate
[in]	new_size	number of pair of candidate for the current interface
[in,out]	inter_cand	structure of pair of candidate

Definition at line 32 of file upgrade_ixint.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE inter_cand_mod
C-------------------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER, INTENT(in) :: NELEMINT !< number of pair of candidate
        INTEGER, INTENT(in) :: NEW_SIZE !< number of pair of candidate for the current interface
        TYPE(INTER_CAND_), INTENT(inout) :: INTER_CAND !< structure of pair of candidate
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER, DIMENSION(:,:), ALLOCATABLE :: TEMP
C-----------------------------------------------
        ALLOCATE(temp(inter_cand%S_IXINT_1,nelemint))
        temp(1:inter_cand%S_IXINT_1,1:nelemint) = inter_cand%IXINT(1:inter_cand%S_IXINT_1,1:nelemint)
        DEALLOCATE(inter_cand%IXINT)
 
        inter_cand%S_IXINT_2 = nelemint+new_size
        ALLOCATE(inter_cand%IXINT(inter_cand%S_IXINT_1,inter_cand%S_IXINT_2))
        inter_cand%IXINT(1:inter_cand%S_IXINT_1,1:nelemint)=temp(1:inter_cand%S_IXINT_1,1:nelemint)
 
        DEALLOCATE(temp)
        RETURN