config_code.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\config_code.f
00002 !
00056                      SUBROUTINE CONFIG_CODE
00057 !                    **********************
00058 !
00059      &(ICODE)
00060 !
00061 !***********************************************************************
00062 ! BIEF   V6P1                                   21/08/2010
00063 !***********************************************************************
00064 !
00065 !
00066 !
00067 !
00068 !
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !| ICODE          |-->| CODE NUMBER IN CASE OF COUPLING
00071 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00072 !
00073       USE BIEF, EX_CONFIG_CODE => CONFIG_CODE
00074       USE DECLARATIONS_TELEMAC
00075 !
00076       IMPLICIT NONE
00077       INTEGER     LNG,LU
00078       COMMON/INFO/LNG,LU
00079 !
00080 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00081 !
00082       INTEGER , INTENT(IN)    :: ICODE
00083 !
00084 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00085 !
00086 !     SETS NAME OF CURRENT CODE
00087 !
00088       NAMECODE = NNAMECODE(ICODE)
00089 !
00090 !-----------------------------------------------------------------------
00091 !
00092       RETURN
00093       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0