redkey0.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	redkey0 (key0, nkey, carte, ikey, nslash)

Function/Subroutine Documentation

redkey0()

subroutine redkey0	(	character(len=5), dimension(nkey)	key0,
		integer	nkey,
		character(len=ncharline100)	carte,
		integer	ikey,
		integer, dimension(*)	nslash )

Definition at line 32 of file redkey0.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 NKEY, IKEY,NSLASH(*)
      CHARACTER(LEN=NCHARLINE100) :: CARTE
      CHARACTER(LEN=5) ::  KEY0(NKEY)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER J, I
      CHARACTER(len=5) :: KEY
C-----------------------------------------------
      j=0
      key(1:5)='     '
 
      DO i=2,ncharline100 
      IF(carte(i:i)=='/')EXIT
      IF(carte(i:i)==' ')cycle
       j=j+1
       IF(j>5)EXIT
       key(j:j)=carte(i:i)
      ENDDO
C
      DO i=1,nkey
        ikey=i
        IF(key(1:5)==key0(ikey))THEN
          nslash(ikey)=nslash(ikey)+1
          EXIT
        ENDIF
      ENDDO
      IF(key(1:5)/=key0(ikey))THEN
        ikey=0
        CALL errmsg(key)
      ENDIF
 
C
      RETURN