intti0.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	intti0 (ipari, x, v, wa, itab, iparg, ixs, segvar, skew, iskwn, intbuf_tab)

Function/Subroutine Documentation

intti0()

subroutine intti0	(	integer, dimension(npari,*)	ipari,
			x,
			v,
			wa,
		integer, dimension(*)	itab,
		integer, dimension(*)	iparg,
		integer, dimension(*)	ixs,
		type(t_segvar)	segvar,
			skew,
		integer, dimension(*)	iskwn,
		type(intbuf_struct_), dimension(*)	intbuf_tab )

Definition at line 33 of file intti0.F.

      USE segvar_mod
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE intbufdef_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"
#include      "units_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARI(NPARI,*),ITAB(*),IPARG(*),IXS(*),ISKWN(*)
      my_real x(*), v(*), wa(*), skew(*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
      TYPE(t_segvar) :: SEGVAR
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NTY, JI, JB,TEST,IPRI
C-----------------------------------------------
      SAVE test
      DATA test/0/
C======================================================================= 
      DO n=1,ninter
        nty   =ipari(7,n)
        IF(nty==12)THEN
          CALL intti12a(
     .     ipari(1,n),x      ,wa   ,itab,
     .     segvar,test,skew,iskwn,intbuf_tab(n))
        ENDIF
      ENDDO
C
      IF(ninter>0)THEN
        ipri=mod(ncycle,iabs(ncpri))
        IF(ipri==0 .AND.test/=0)
     .  WRITE(istdo,'(A,A)')
     . ' *** WARNING FLUID INTERFACES SOME SECONDARY NODES',
     . ' LIE OUTSIDE OF MAIN SEGMENT'
       test=0
      ENDIF
c-----------
      RETURN