sfillopt.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sfillopt (fill, sti, f11, f21, f31, f12, f22, f32, f13, f23, f33, f14, f24, f34, f15, f25, f35, f16, f26, f36, f17, f27, f37, f18, f28, f38, nel)

Function/Subroutine Documentation

sfillopt()

subroutine sfillopt	(		fill,
			sti,
			f11,
			f21,
			f31,
			f12,
			f22,
			f32,
			f13,
			f23,
			f33,
			f14,
			f24,
			f34,
			f15,
			f25,
			f35,
			f16,
			f26,
			f36,
			f17,
			f27,
			f37,
			f18,
			f28,
			f38,
		integer, intent(in)	nel )

Definition at line 35 of file sfillopt.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(*),
     .   f15(*),f25(*),f35(*),f16(*),f26(*),f36(*),
     .   f17(*),f27(*),f37(*),f18(*),f28(*),f38(*)
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)
        f15(i)=fill(i)*f15(i)
        f25(i)=fill(i)*f25(i)
        f35(i)=fill(i)*f35(i)
        f16(i)=fill(i)*f16(i)
        f26(i)=fill(i)*f26(i)
        f36(i)=fill(i)*f36(i)
        f17(i)=fill(i)*f17(i)
        f27(i)=fill(i)*f27(i)
        f37(i)=fill(i)*f37(i)
        f18(i)=fill(i)*f18(i)
        f28(i)=fill(i)*f28(i)
        f38(i)=fill(i)*f38(i)
      END DO              
 
      RETURN