fxfluxwrest.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	fxfluxwrest (ibfflux, fbfflux, glob_therm)

Function/Subroutine Documentation

fxfluxwrest()

subroutine fxfluxwrest	(	integer, dimension(*)	ibfflux,
			fbfflux,
		type (glob_therm_), intent(in)	glob_therm )

Definition at line 35 of file fxfluxwrest.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      use glob_therm_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"
#include      "scr05_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IBFFLUX(*)
      my_real fbfflux(*)
      type (glob_therm_) ,intent(in) :: GLOB_THERM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C
      IF (irform/5<=1) THEN
        CALL wrtsqr (fbfflux,glob_therm%LFACTHER*glob_therm%NFXFLUX,irform)
        CALL wrtsqi (ibfflux,glob_therm%NITFLUX*glob_therm%NFXFLUX,irform)
      ELSE
        CALL write_db(fbfflux,glob_therm%LFACTHER*glob_therm%NFXFLUX)
        CALL write_i_c(ibfflux,glob_therm%NITFLUX*glob_therm%NFXFLUX)
      ENDIF
C
      RETURN