redkey1.F File Reference

#include "implicit_f.inc"
#include "chara_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	redkey1 (key, key0, nkey, carte, ikey, ir)

Function/Subroutine Documentation

redkey1()

subroutine redkey1	(	character, dimension(*)	key,
		character, dimension(nkey)	key0,
		integer	nkey,
		character(len=ncharline100)	carte,
		integer	ikey,
		integer	ir )

Definition at line 30 of file redkey1.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   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "chara_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NKEY, IKEY, IR, IOK
      CHARACTER(LEN=NCHARLINE100) ::  CARTE
      CHARACTER KEY(*)*5, KEY0(NKEY)*5
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IKEYO, J, JK, I
      CHARACTER KEYO(9)*5
      LOGICAL DETECTED
C-----------------------------------------------
      ir=0
C
      ikeyo=ikey
      DO j=1,9
        keyo(j)=key(j)
        key(j)=' '
      ENDDO
      jk=0
      DO i=1,ncharline100
        IF(carte(i:i)=='/')THEN
         jk=jk+1
         j=0
        ELSEIF(carte(i:i)/=' ')THEN
         j=j+1
         IF(j<=5)key(jk)(j:j)=carte(i:i)
        ENDIF
      ENDDO
 
      detected=.false.
      DO i=1,nkey
        ikey=i
        IF(key(1)==key0(ikey))THEN
         detected = .true.
         EXIT
        ENDIF
      ENDDO
 
      IF(.NOT. detected)THEN
        ir=1
        ikey=ikeyo
        DO j=1,9
          key(j)=keyo(j)
        ENDDO
 
      ELSE ! IF(DETECTED)
        iok = 0
        j=0
        IF(ikey==1.OR.ikey==58)THEN
         IF (got_input == 0.OR.ikey==58) THEN
          DO i=5,ncharline100
            IF(iok==0.AND.carte(i:i)=='/')THEN
             iok = 1
            ELSEIF(iok==1.AND.carte(i:i)=='/')THEN
             rootlen = j
             RETURN
            ELSEIF(iok==1.AND.carte(i:i)/=' ')THEN
             j=j+1
             IF(j<=80)rootnam(j:j)=carte(i:i)
            ENDIF
          ENDDO
         ELSE
          rootnam(1:lenrootn)=rootn(1:lenrootn)
          rootlen = lenrootn
         ENDIF
        ENDIF
      ENDIF
 
      RETURN