i11cdcor3.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	i11cdcor3 (jlt, index, cand_m, cand_s, cand_m_n, cand_s_n)

Function/Subroutine Documentation

i11cdcor3()

subroutine i11cdcor3	(	integer	jlt,
		integer, dimension(*)	index,
		integer, dimension(*)	cand_m,
		integer, dimension(*)	cand_s,
		integer, dimension(*)	cand_m_n,
		integer, dimension(*)	cand_s_n )

Definition at line 30 of file i11cdcor3.F.

C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER JLT, INDEX(*), CAND_M(*), CAND_S(*),
     .        CAND_M_N(*), CAND_S_N(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I 
C-----------------------------------------------
C
      DO i=1,jlt
        cand_m_n(i) = cand_m(index(i))
        cand_s_n(i) = cand_s(index(i))
      ENDDO
C
      RETURN