redkey2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	redkey2 (key2, lk2, key0, nkey, carte, ikey)

Function/Subroutine Documentation

redkey2()

subroutine redkey2	(	character	key2,
		integer	lk2,
		character, dimension(nkey)	key0,
		integer	nkey,
		character(len=ncharline100)	carte,
		integer	ikey )

Definition at line 28 of file redkey2.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE names_and_titles_mod, ONLY: ncharline100
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 LK2, NKEY, IKEY
      CHARACTER KEY2*80
      CHARACTER(LEN=NCHARLINE100) :: CARTE
      CHARACTER KEY0(NKEY)*5
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER JK, I, J
      CHARACTER KEY1*80
C-----------------------------------------------
      key1=' '
      key2=' '
      jk=0
      j=0
      DO i=1,ncharline100
        IF(carte(i:i)=='/')THEN
         jk=jk+1
         j=0
        ELSEIF(carte(i:i)/=' '.AND.jk==1)THEN
         j=j+1
         key1(j:j)=carte(i:i)
        ELSEIF(carte(i:i)/=' '.AND.jk==2)THEN
         j=j+1
         lk2=j
         key2(j:j)=carte(i:i)
        ENDIF
      ENDDO
C
      DO ikey=1,nkey
        IF(key1==key0(ikey))RETURN
      ENDDO
 
      ikey=0
C
      RETURN