s4fillopt.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s4fillopt (fill, sti, f11, f21, f31, f12, f22, f32, f13, f23, f33, f14, f24, f34, nel)

Function/Subroutine Documentation

s4fillopt()

subroutine s4fillopt	(		fill,
			sti,
			f11,
			f21,
			f31,
			f12,
			f22,
			f32,
			f13,
			f23,
			f33,
			f14,
			f24,
			f34,
		integer, intent(in)	nel )

Definition at line 28 of file s4fillopt.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-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      my_real
     .   fill(*),sti(*),
     .   f11(*),f21(*),f31(*),f12(*),f22(*),f32(*),
     .   f13(*),f23(*),f33(*),f14(*),f24(*),f34(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
      DO i=1,nel
        sti(i)=fill(i)*sti(i)
        f11(i)=fill(i)*f11(i)
        f21(i)=fill(i)*f21(i)
        f31(i)=fill(i)*f31(i)
        f12(i)=fill(i)*f12(i)
        f22(i)=fill(i)*f22(i)
        f32(i)=fill(i)*f32(i)
        f13(i)=fill(i)*f13(i)
        f23(i)=fill(i)*f23(i)
        f33(i)=fill(i)*f33(i)
        f14(i)=fill(i)*f14(i)
        f24(i)=fill(i)*f24(i)
        f34(i)=fill(i)*f34(i)
      END DO              
 
      RETURN