comp_ikle.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\comp_ikle.f
00002 !
00066                      SUBROUTINE COMP_IKLE
00067 !                    ********************
00068 !
00069      &(IKLE,IKLBOR,ELTSEG,NBOR,NELBOR,NULONE,
00070      & IELM,NELEM,NELMAX,NPOIN,NPTFR,NELEB,NELEBX)
00071 !
00072 !***********************************************************************
00073 ! BIEF   V7P0                                    28/03/2014
00074 !***********************************************************************
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !
00081 !
00082 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00083 !| ELTSEG         |-->| SEGMENT NUMBERS OF AN ELEMENT
00084 !| IELM           |-->| TYPE OF ELEMENT
00085 !| IKLBOR         |<->| CONNECTIVITY TABLE FOR BOUNDARY POINTS
00086 !| IKLE           |<->| CONNECTIVITY TABLE FOR ALL POINTS
00087 !| NBOR           |<->| GLOBAL NUMBERS OF BOUNDARY POINTS
00088 !| NELBOR         |-->| BOUNDARY ELEMENT THAT CONTAINS SEGMENT K
00089 !| NELEB          |-->| NUMBER OF BOUNDARY SEGMENTS
00090 !| NELEBX         |-->| MAXIMUM NUMBER OF BOUNDARY SEGMENTS
00091 !| NELEM          |-->| NOMBRE D'ELEMENTS
00092 !| NELMAX         |-->| NOMBRE MAXIMUM D'ELEMENTS
00093 !| NPOIN          |-->| NOMBRE DE SOMMETS DU MAILLAGE
00094 !| NPTFR          |-->| NUMBER OF (LINEAR) BOUNDARY POINTS
00095 !| NULONE         |-->| LOCAL NUMBER OF K IN ELEMENT NELBOR
00096 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00097 !
00098       USE BIEF, EX_COMP_IKLE => COMP_IKLE
00099 !
00100       IMPLICIT NONE
00101       INTEGER LNG,LU
00102       COMMON/INFO/LNG,LU
00103 !
00104 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00105 !
00106       INTEGER, INTENT(IN)    :: NELEM,NELMAX,IELM,NPOIN,NPTFR
00107       INTEGER, INTENT(IN)    :: NELEB,NELEBX
00108       INTEGER, INTENT(IN)    :: ELTSEG(NELMAX,3)
00109       INTEGER, INTENT(IN)    :: NELBOR(NELEBX),NULONE(NELEBX)
00110       INTEGER, INTENT(INOUT) :: IKLE(NELMAX,*),IKLBOR(NELEBX,*),NBOR(*)
00111 !
00112 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00113 !
00114       IF(IELM.EQ.12) THEN
00115 !
00116         CALL CPIK12(IKLE,NELEM,NELMAX,NPOIN)
00117 !
00118       ELSEIF(IELM.EQ.13.OR.IELM.EQ.14) THEN
00119 !
00120         CALL CPIK13(IKLE,IKLBOR,ELTSEG,NBOR,NELBOR,NULONE,
00121      &              NELEM,NELMAX,NPOIN,NPTFR,NELEB,NELEBX)
00122 !
00123       ELSE
00124 !
00125         IF(LNG.EQ.1) WRITE(LU,10) IELM
00126         IF(LNG.EQ.2) WRITE(LU,11) IELM
00127 10      FORMAT(1X,'COMP_IKLE : DISCRETISATION NON PREVUE :'    ,I6)
00128 11      FORMAT(1X,'COMP_IKLE: DISCRETIZATION NOT IMPLEMENTED:',I6)
00129         CALL PLANTE(1)
00130         STOP
00131 !
00132       ENDIF
00133 !
00134 !-----------------------------------------------------------------------
00135 !
00136       RETURN
00137       END

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