hist2.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com06_c.inc"
#include "com08_c.inc"
#include "sphcom.inc"
#include "units_c.inc"
#include "param_c.inc"
#include "scr05_c.inc"
#include "scr07_c.inc"
#include "scr11_c.inc"
#include "scr12_c.inc"
#include "scr13_c.inc"
#include "scr17_c.inc"
#include "scr23_c.inc"
#include "scrfs_c.inc"
#include "task_c.inc"
#include "impl1_c.inc"
#include "rad2r_c.inc"
#include "tabsiz_c.inc"

Go to the source code of this file.

Modules
module	hist2_mod

Functions/Subroutines
subroutine	hist2_mod::hist2 (pm, d, x, v, a, ixs, bufel, wa, iparg, sensor_tab, fsav, flsw, skew, elbuf_tab, cluster, partsav, accelm, nsensor, matparam_tab, weight, ipart, igrsurf, ebcs_tab, ithgrp, ithbuf, subset, geo, kxx, ixr, kxsp, nod2sp, spbuf, ar, vr, dr, lrivet, rivet, ixp, iskwn, iframe, xframe, ixc, ixq, dthis0, this0, ifil, nthgrp2, ixtg, igeo, ipm, ipartl, npartl, iaccp, naccp, iparth, nparth, nvparth, monvol, volmon, fr_mv, temp, inod, fthreac, nodreac, gresav, gauge, igaup, ngaup, ittyp, size_mes, rthbuf, thke, stack, isphio, vsphio, ithflag, pinch_data, multi_fvm, w, sithbuf, fsavsurf, need_to_reinit_fsav, glob_therm, output)
subroutine	bufmonv (fsavvent, ivolu, rbaghol, fr_mv)

Function/Subroutine Documentation

bufmonv()

subroutine bufmonv	(		fsavvent,
		integer, dimension(nimv,*)	ivolu,
			rbaghol,
		integer, dimension(nspmd+2,nvolu)	fr_mv )

Definition at line 1482 of file hist2.F.

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      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IVOLU(NIMV,*),FR_MV(NSPMD+2,NVOLU)
      my_real fsavvent(5,*),rbaghol(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N,ITYP,NVENT,IVENTTOT,RADHOL,IV,PMAIN
C-----------------------------------------------
      DO n=1,nvolu
        ityp =ivolu(2,n)
        IF(ityp>=4.AND.ityp<=9)THEN
          pmain = fr_mv(nspmd+2,n)
          IF(ispmd+1==pmain)THEN
            nvent   =ivolu(11,n)
            iventtot=ivolu(16,n)
            radhol  =ivolu(13,n)
            DO iv=1,nvent
C             Aout, Aout1, Uout, Mout, Hout
              fsavvent(1,iventtot+iv)=rbaghol(radhol+16)
              fsavvent(2,iventtot+iv)=rbaghol(radhol+17)
              fsavvent(3,iventtot+iv)=rbaghol(radhol+18)
              fsavvent(4,iventtot+iv)=rbaghol(radhol+19)
              fsavvent(5,iventtot+iv)=rbaghol(radhol+20)
              radhol=radhol+nrbhol
            END DO
          END IF
        END IF
      END DO
      RETURN