zero.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	zeror (a, n)
subroutine	zero1 (a, n)

Function/Subroutine Documentation

zero1()

subroutine zero1	(		a,
		integer	n )

Definition at line 84 of file zero.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER N
C     REAL
      my_real
     .   a(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
      DO i=1,n
       a(i)=zero
      ENDDO
      RETURN

zeror()

subroutine zeror	(		a,
		integer	n )

Definition at line 38 of file zero.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER N
C     REAL
      my_real
     .   a(3,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
      DO i=1,n
       a(1,i)=zero
       a(2,i)=zero
       a(3,i)=zero
      ENDDO
      RETURN