fredec_8key_i.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	fredec_8key_i (cart, key2, key3, key4, key5, key6, key7, key8, nbc)

Function/Subroutine Documentation

fredec_8key_i()

subroutine fredec_8key_i	(	character, dimension(*)	cart,
		character, dimension(*)	key2,
		character, dimension(*)	key3,
		character, dimension(*)	key4,
		character, dimension(*)	key5,
		character, dimension(*)	key6,
		character, dimension(*)	key7,
		character, dimension(*)	key8,
		integer	nbc )

Definition at line 34 of file fredec_8key_i.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE names_and_titles_mod, ONLY: ncharkey
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   V a r i a b l e s
C-----------------------------------------------
      CHARACTER CART*(*), KEY2*(*), KEY3*(*), KEY4*(*), KEY5*(*), KEY6*(*), KEY7*(*), KEY8*(*)
      CHARACTER(LEN=NCHARKEY) ::  MOT1
      INTEGER   I1,I2,NBC
C======================================================================|
C     /Key1/KEY2/KEY3/KEY4/KEY5/KEY6/KEY7/KEY8/NBC
C-----------------------------------------------
      i1=2
      i2=i1
      DO WHILE(cart(i2:i2)/='/'.AND.i2<120)
        i2=i2+1
      ENDDO
C KEY2
      i1 =i2+1
      i1=min(i1,120)
      i2 =i1
      DO WHILE(cart(i2:i2)/='/'.AND.i2<120)
        i2=i2+1
      ENDDO
      i2=i2-1
      key2 = cart(i1:i2)
C KEY3
      i1 =i2+2
      i1=min(i1,120)
      i2 =i1
      DO WHILE(cart(i2:i2)/='/'.AND.i2<120)
        i2=i2+1
      ENDDO
      i2=i2-1
      key3 = cart(i1:i2)
C KEY4
      i1=i2+2
      i1=min(i1,120)      
      i2=i1
      DO WHILE(cart(i2:i2)/='/' .AND. i2 < 120)
        i2=i2+1
      ENDDO
      i2=i2-1
      key4 = cart(i1:i2)
C KEY5
      i1=i2+2
      i1=min(i1,120)      
      i2=i1
      DO WHILE(cart(i2:i2)/='/' .AND. i2 < 120)
        i2=i2+1
      ENDDO
      i2=i2-1
      key5 = cart(i1:i2)
C KEY6
      i1=i2+2
      i1=min(i1,120)      
      i2=i1
      DO WHILE(cart(i2:i2)/='/' .AND. i2 < 120)
        i2=i2+1
      ENDDO
      i2=i2-1
      key6 = cart(i1:i2)
C KEY7
      i1=i2+2
      i1=min(i1,120)      
      i2=i1
      DO WHILE(cart(i2:i2)/='/' .AND. i2 < 120)
        i2=i2+1
      ENDDO
      i2=i2-1
      key7 = cart(i1:i2)
C KEY8
      i1=i2+2
      i1=min(i1,120)      
      i2=i1
      DO WHILE(cart(i2:i2)/='/' .AND. i2 < 120)
        i2=i2+1
      ENDDO
      i2=i2-1
      key8 = cart(i1:i2)
C NBC
      i1=101   
      i2=110
      mot1= cart(i1:i2)
      READ(mot1,fmt='(I10)')nbc
C---
      RETURN