i7cdcor3.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	i7cdcor3 (jlt, index, cand_e, cand_n, cand_e_n, cand_n_n)

Function/Subroutine Documentation

i7cdcor3()

subroutine i7cdcor3	(	integer	jlt,
		integer, dimension(*)	index,
		integer, dimension(*)	cand_e,
		integer, dimension(*)	cand_n,
		integer, dimension(*)	cand_e_n,
		integer, dimension(*)	cand_n_n )

Definition at line 36 of file i7cdcor3.F.

C============================================================================
C  cette routine est appelee par : I10MAINF(/int10/i10mainf.F)
C                                  I7MAINF(/int7/i7mainf.F)
C----------------------------------------------------------------------------
C  cette routine appelle : -
C============================================================================
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER JLT, INDEX(*), CAND_E(*), CAND_N(*),
     .        CAND_E_N(*), CAND_N_N(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I 
C-----------------------------------------------
C
      !initialization of local buffer (1:MVSIZ)
      DO i=1,jlt
        cand_e_n(i) = cand_e(index(i))
        cand_n_n(i) = cand_n(index(i))
      ENDDO
C
      RETURN