reset_gap.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	reset_gap (ni, ipari, intbuf_tab, frigap)

Function/Subroutine Documentation

reset_gap()

subroutine reset_gap	(	integer	ni,
		integer, dimension(npari,*)	ipari,
		type(intbuf_struct_)	intbuf_tab,
			frigap )

Definition at line 29 of file reset_gap.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      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NI, IPARI(NPARI,*)
      my_real
     .        frigap(nparir,*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER J
C======================================================================|
      DO j = 1,nparir
        intbuf_tab%VARIABLES(j) = frigap(j,ni)
      ENDDO
 
      RETURN