basisf.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	basisf (h, p1, p2, p3, ipt)

Function/Subroutine Documentation

basisf()

subroutine basisf	(		h,
			p1,
			p2,
			p3,
		integer	ipt )

Definition at line 31 of file basisf.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 IPT
C     REAL
      my_real
     .   h(*), p1(*), p2(*), p3(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C     REAL
      my_real
     .   g(3,8)
      DATA   g/-.5773502691896,-.5773502691896,-.5773502691896,
     1          .5773502691896,-.5773502691896,-.5773502691896,
     2          .5773502691896, .5773502691896,-.5773502691896,
     3         -.5773502691896, .5773502691896,-.5773502691896,
     4         -.5773502691896,-.5773502691896, .5773502691896,
     5          .5773502691896,-.5773502691896, .5773502691896,
     6          .5773502691896, .5773502691896, .5773502691896,
     7         -.5773502691896, .5773502691896, .5773502691896/
C
      CALL basis8(g(1,ipt),g(2,ipt),g(3,ipt),h,p1,p2,p3)
      RETURN