intal1.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	intal1 (ipari, x, v, a, iskew, skew, lcod, wa, ms, itab, fsav, intbuf_tab, fcont, fncont, h3d_data)

Function/Subroutine Documentation

intal1()

subroutine intal1	(	integer, dimension(npari,ninter), intent(inout)	ipari,
		dimension(3,numnod), intent(inout)	x,
		dimension(3,numnod), intent(inout)	v,
		dimension(3,numnod), intent(inout)	a,
		integer, dimension(*), intent(inout)	iskew,
		dimension(*), intent(inout)	skew,
		integer, dimension(*), intent(inout)	lcod,
		dimension(*), intent(inout)	wa,
		dimension(*), intent(inout)	ms,
		integer, dimension(numnod), intent(inout)	itab,
		dimension(nthvki,*), intent(inout)	fsav,
		type(intbuf_struct_), dimension(*), intent(inout)	intbuf_tab,
		dimension(3,*), intent(inout)	fcont,
		dimension(3,*), intent(inout)	fncont,
		type(h3d_database)	h3d_data )

Definition at line 35 of file intal1.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE intbufdef_mod 
      USE h3d_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"
#include      "com04_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER,INTENT(INOUT)              :: IPARI(NPARI,NINTER), ISKEW(*), LCOD(*), ITAB(NUMNOD)
      my_real,INTENT(INOUT)              :: x(3,numnod), v(3,numnod), a(3,numnod), skew(*), wa(*), ms(*),fsav(nthvki,*)
      TYPE(INTBUF_STRUCT_),INTENT(INOUT) :: INTBUF_TAB(*)
      my_real,INTENT(INOUT) :: fcont(3,*),fncont(3,*)
      TYPE(H3D_DATABASE) :: H3D_DATA
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NTY, NMN, NINT
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      DO n=1,ninter
       nty   =ipari(7,n)
       IF(nty == 1)THEN
         nmn   =ipari(6,n)
         nint=n
         CALL intal2(
     1        ipari(1,n)   ,intbuf_tab(n)       ,x           ,v    ,
     2        a            ,iskew        ,skew  ,lcod        ,wa   ,
     3        wa(3*nmn+1)  ,ms           ,itab  ,fsav(1,nint),fcont,
     4        fncont       ,h3d_data )
       ELSEIF(nty == 9) THEN
         nmn   =ipari(6,n)
         nint=n
         IF(n2d == 0)THEN
          CALL i9main3(
     1      ipari(1,n)   ,intbuf_tab(n),x        ,v ,
     2      a            ,iskew        ,skew         ,lcod     ,wa,
     3      wa(3*nmn+1)  ,ms           ,wa(6*nmn+1)  ,wa(7*nmn+1),itab,
     4      fsav(1,n)    )
         ELSE
          CALL i9main2(
     1      ipari(1,n)   ,intbuf_tab(n),x         ,v,
     2      a            ,iskew        ,skew         ,lcod      ,wa,
     3      wa(3*nmn+1)  ,ms           ,wa(6*nmn+1)  ,wa(7*nmn+1),itab,
     4      fsav(1,n)    )
         ENDIF
       ENDIF
      ENDDO !next N
C-----------------------------------------------
      RETURN
C