definter.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	definter (key, ival, flag, iprint, ityp, def_inter)

Function/Subroutine Documentation

definter()

subroutine definter	(	character	key,
		integer	ival,
		integer	flag,
		integer	iprint,
		integer	ityp,
		integer, dimension(*)	def_inter )

Definition at line 44 of file definter.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE message_mod
      USE ale_mod
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      "com01_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      CHARACTER KEY*10
      INTEGER IVAL,FLAG,IPRINT,ITYP,DEF_INTER(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER INDEX,DEF_DEF
      LOGICAL IS_DEFAUT_1000 
C-----------------------------------------------
c KEY      :  KEYWORD
c IVAL     :  INTEGER VALUE
c INDEX    :  INDEX IN DEF_INTER ARRAY
c DEF_DEF  :  DEFAULT VALUE IN CASE NO DEFAULT SPECIFIED
C FLAG     : 
c              = 0 : DEFINITION of DEFAULT VALUES
c              = 1 : USE DEFAULT VALUES 
c IPRINT   :
c              = 1 : USE JUST BEFORE PRINTING VALUES IN 0.out 
C                    IN ORDER TO REPLACE 0 BY CORRECT VALUES
C ITYP     :  TYPE OF THE INTERFACE
C DEF_INTER:  INTEGER ARRAY CONTAINING DEFAULT INTEGER VALUES
C=======================================================================
      index = 0
      is_defaut_1000 = .true.
      def_def = 0
      IF(ityp == 2) THEN
        SELECT CASE (key)
C
          CASE ('IGNORE')
            index = 1
            def_def = 1000
C
          CASE ('ILEV')
            index = 2
            IF(ale%GLOBAL%ICAA == 1) THEN
              def_def = 4
            ELSE
              def_def = 5
            ENDIF
C
          CASE ('IBUC')
            index = 3
            def_def = 2
C
          CASE ('IDEL2')
            index = 4
            def_def = 1000
C
          CASE ('IGSTI')
            index = 5
            def_def = 2
C
          CASE DEFAULT
            index = 0
        END SELECT
C
      ELSEIF(ityp == 7) THEN
        SELECT CASE (key)
          CASE ('IGSTI')
            index = 10
            def_def = 1000
C
          CASE ('IGAP')
            index = 11
            def_def = 1000
C
          CASE ('IBAG')
            index = 12
            def_def = 1000
C
          CASE ('IDEL')
            index = 13
            def_def = 1000
C
          CASE ('FLAGREMNOD')
            index = 14
            def_def = 1
C
          CASE ('IREM7I2')
            index = 15
            IF (iimplicit>0)THEN
              def_def = 1
            ELSE
              def_def = 3
            ENDIF
C
          CASE ('INACTI')
            index = 16
            def_def = 1000
C
          CASE ('MODFR')
            index = 17
            def_def = 1
C
          CASE DEFAULT
            index = 0
        END SELECT
C
      ELSEIF(ityp == 11) THEN
        SELECT CASE (key)
          CASE ('IGSTI')
            index = 20
            def_def = 5
C
          CASE ('IGAP')
            index = 21
            def_def = 1000
C
          CASE ('IDEL')
            index = 22
            def_def = 1000
C
          CASE ('IFORM')
            index = 23
            def_def = 1
C
          CASE ('INACTI')
            index = 24
            def_def = 1000
C
          CASE ('FLAGREMNOD')
            index = 25
            def_def = 1
C
          CASE DEFAULT
            index = 0
        END SELECT
C
      ELSEIF(ityp == 19) THEN
        SELECT CASE (key)
          CASE ('IGSTI')
            index = 30
c
            def_def = 1000
C
          CASE ('IGAP')
            index = 31
            def_def = 1000
C
          CASE ('IBAG')
            index = 32
            def_def = 1000
C
          CASE ('IDEL')
            index = 33
            def_def = 1000
C
          CASE ('INACTI')
            index = 34
            def_def = 1000
C
          CASE ('MODFR')
            index = 36
            def_def = 1
C
          CASE ('IEDGE')
            index = 37
            def_def = 2
C
          CASE ('FLAGREMNOD')
            index = 38
            def_def = 1
C
          CASE ('IREM7I2')
            index = 39
            IF (iimplicit>0)THEN
              def_def = 1
            ELSE
              def_def = 3
            ENDIF
C
          CASE DEFAULT
            index = 0
        END SELECT
      ELSEIF(ityp == 24) THEN
        SELECT CASE (key)
          CASE ('IGSTI')
            index = 40
            def_def = 1000
C
          CASE ('IREM24I2')
            index = 41
            def_def = 1
C
          CASE ('IDEL24')
            index = 42
            def_def = 1000
C
          CASE ('IEDGE')
            index = 43
            def_def = 1000
C
          CASE ('IGAP0')
            index = 44
            def_def = 1000
C
          CASE ('IPEN0')
            index = 45
            def_def = 1000
C
          CASE ('INACTI')
            index = 46
            def_def = 1000
C
          CASE DEFAULT
            index = 0
        END SELECT
      ELSEIF(ityp == 25) THEN
        SELECT CASE (key)
          CASE ('IGSTI')
            index = 47
            def_def = 1000
C
          CASE ('IGAP')
            index = 48
            def_def = 1
C
          CASE ('IBAG')
            index = 49
            def_def = 1000
C
          CASE ('IDEL25')
            index = 50
            def_def = 1000
C
          CASE ('IGAP0')
            index = 51
            def_def = 1000
C
          CASE ('INACTI')
            index = 52
            def_def = 1000
C
          CASE ('IREM25I2')
            index = 53
            def_def = 1
C
          CASE ('ISHARP')
            index = 54
            def_def = 1
C
          CASE ('IEDGE')
            index = 55
            def_def = 1000
C
          CASE ('ITHK')
            index = 56
            def_def = 1000
C
          CASE DEFAULT
            index = 0
        END SELECT
        IF (def_def /= 1000) is_defaut_1000 = .false.
      ENDIF
C
      IF(index/=0)THEN
        IF(flag == 0 .AND. iprint == 0 
     .              .AND. def_inter(index) /= 0)THEN 
          CALL ancmsg(msgid=1073,
     .                     msgtype=msgerror,
     .                     anmode=aninfo,
     .                     i1=ityp)
        ELSEIF(flag == 0 .AND. iprint == 0 
     .                   .AND. ival /= 0)THEN 
          ! put default value in DEF_INTER array
          def_inter(index) = ival
        ELSEIF(flag == 0 .AND. iprint == 0)THEN 
          ! put default_default value in DEF_INTER array
          def_inter(index) = def_def
        ELSEIF(flag == 0 .AND. iprint == 1)THEN 
          ! build IVAL value printed in 0.out for  /DEFAULT option
          ival = def_inter(index)
        ELSEIF(flag == 1 .AND. iprint == 0)THEN
          ! replace 0 by default value in /INTER
          IF(ival == 0 .AND. def_inter(index) /= 0)THEN
            ival = def_inter( index)
          ELSEIF(ival == 0)THEN
            ival = def_def
          ENDIF
          IF(ival == 1000 .AND. is_defaut_1000 ) ival = 0
        ELSEIF(flag == 1 .AND. iprint == 1)THEN
          IF(ival == 0 .AND. def_inter(index) /= 0)THEN
            ival = def_inter(index)
          ELSEIF(ival == 0 .AND. def_inter(index) == 0)THEN
            ival = def_def
          ENDIF
        ENDIF
      endif!(INDEX/=0)
C-----
      RETURN