wrtdes0.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	wrtdes0 (ng, wa, ii, iform)

Function/Subroutine Documentation

wrtdes0()

subroutine wrtdes0	(	integer	ng,
			wa,
		integer	ii,
		integer	iform )

Definition at line 31 of file wrtdes0.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      "task_c.inc"
#include      "com01_c.inc"
C-----------------------------------------------
      INTEGER NG,II,IFORM
      my_real :: wa(*)
C-----------------------------------------------
        IF(nspmd > 1) CALL spmd_glob_dsum9(wa,ii)
        IF (ispmd==0) CALL wrtdes(wa,wa,ii,iform,1)
      RETURN