fxfluxrrest.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	fxfluxrrest (ibfflux, fbfflux, glob_therm)

Function/Subroutine Documentation

fxfluxrrest()

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

Definition at line 35 of file fxfluxrrest.F.

 
      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 redsqr (fbfflux,glob_therm%LFACTHER*glob_therm%NFXFLUX,irform)
        CALL redsqi (ibfflux,glob_therm%NITFLUX *glob_therm%NFXFLUX,irform)
      ELSE
        CALL read_db(fbfflux,glob_therm%LFACTHER*glob_therm%NFXFLUX)
        CALL read_i_c(ibfflux,glob_therm%NITFLUX*glob_therm%NFXFLUX)
      ENDIF
C
      RETURN