volout.F File Reference

#include "implicit_f.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	volout (rvolu, vol, fsav, pmain)

Function/Subroutine Documentation

volout()

subroutine volout	(		rvolu,
			vol,
			fsav,
		integer	pmain )

Definition at line 28 of file volout.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER PMAIN
      my_real rvolu(*),fsav(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      my_real vol,area
C-----------------------------------------------
      IF (ispmd+1==pmain) THEN
        area = rvolu(18)
C
        fsav(1)=zero
        fsav(2)=vol
        fsav(3)=zero
        fsav(4)=area
        fsav(5)=zero
        fsav(6)=zero
        fsav(7)=zero
        fsav(8)=zero
        fsav(9)=zero
        fsav(10)=zero
        fsav(11)=zero
        fsav(12)=zero
      ENDIF
C
      RETURN