inintr1.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	inintr1 (ipari, stifint, intbuf_tab, stfac)

Function/Subroutine Documentation

inintr1()

subroutine inintr1	(	integer, dimension(npari,*)	ipari,
			stifint,
		type(intbuf_struct_), dimension(*)	intbuf_tab,
			stfac )

Definition at line 34 of file inintr1.F.

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"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARI(NPARI,*)
C     REAL
      my_real
     .   stifint(*), stfac(*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N
      INTEGER NTY, IGSTI
C
      IF(n2d/=0)RETURN
C
      DO n=1,ninter
       nty=ipari(7,n)
       IF (nty==7.OR.nty==22)THEN
         igsti=ipari(34,n)
         IF(igsti>1)THEN
           CALL i7stsecnd(
     1      ipari(1,n),stifint,intbuf_tab(n))
         ENDIF
       ELSEIF (nty==20)THEN
         CALL i20stifn(ipari(1,n),stifint,intbuf_tab(n))
       ELSEIF (nty==21)THEN
         igsti=ipari(34,n)
         IF(igsti==0)THEN
           CALL i7stsecnd(
     1      ipari(1,n),stifint,intbuf_tab(n))
         END IF
       ELSEIF (nty==23)THEN
         igsti=ipari(34,n)
         IF(igsti==0)THEN
           CALL i7stsecnd(
     1      ipari(1,n),stifint,intbuf_tab(n))
         END IF
       ELSEIF (nty==24)THEN
         igsti=ipari(34,n)
         IF(igsti>1 .OR. igsti==-1)THEN
           CALL i24stsecnd(
     1      ipari(1,n),stifint,intbuf_tab(n),stfac(n))
         ENDIF
       ELSEIF (nty==25)THEN
         igsti=ipari(34,n)
         IF(igsti>1)THEN
           CALL i25stsecnd(
     1      ipari(1,n),stifint,intbuf_tab(n),stfac(n))
         ENDIF
       ENDIF
      ENDDO
C
      RETURN