spoff3.F File Reference

#include "implicit_f.inc"
#include "sphcom.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	spoff3 (kxsp, vd2, vis, offg, off, nc1, ngl, mxt, ngeo, ipart, ipartsp, nel)

Function/Subroutine Documentation

spoff3()

subroutine spoff3	(	integer, dimension(nisp,*)	kxsp,
			vd2,
			vis,
			offg,
			off,
		integer, dimension(*)	nc1,
		integer, dimension(*)	ngl,
		integer, dimension(*)	mxt,
		integer, dimension(*)	ngeo,
		integer, dimension(lipart1,*)	ipart,
		integer, dimension(*)	ipartsp,
		integer, intent(in)	nel )

Definition at line 28 of file spoff3.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-----------------------------------------------
#include      "sphcom.inc"
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      my_real
     .  vis(*),vd2(*),offg(*),off(*)
      INTEGER NC1(*), MXT(*), NGL(*), NGEO(*), KXSP(NISP,*),
     .        IPART(LIPART1,*),IPARTSP(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,IPRT
C-----------------------------------------------
      DO i=1,nel
       vis(i)=zero
       iprt   =ipartsp(i)
       ngeo(i)=ipart(2,iprt)
       ngl(i) =kxsp(nisp,i)
       mxt(i) =ipart(1,iprt)
       nc1(i) =kxsp(3,i)
      ENDDO
      DO i=1,nel
       off(i) = min(one,abs(offg(i)))
      ENDDO
      DO i=1,nel
       vd2(i)=zero
      ENDDO
C-----------------------------------------------
      RETURN