shapeh.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	shapeh (h, s, t)

Function/Subroutine Documentation

shapeh()

subroutine shapeh	(	dimension(*), intent(inout)	h,
		intent(in)	s,
		intent(in)	t )

Definition at line 33 of file shapeh.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-----------------------------------------------
      my_real,INTENT(IN)    :: s, t
      my_real,INTENT(INOUT) :: h(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      my_real :: sp, sm, tp, tm
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      sp = one +s
      sm = one -s
      tp = fourth*(one + t)
      tm = fourth*(one - t)
      h(1) = tm*sm
      h(2) = tm*sp
      h(3) = tp*sp
      h(4) = tp*sm
C-----------------------------------------------
      RETURN