sphonf0.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	sphonf0 (kxsp, ixsp, nod2sp, ipart, ipartsp, lprtsph, lonfsph)

Function/Subroutine Documentation

sphonf0()

subroutine sphonf0	(	integer, dimension(nisp,*)	kxsp,
		integer, dimension(kvoisph,*)	ixsp,
		integer, dimension(*)	nod2sp,
		integer, dimension(lipart1,*)	ipart,
		integer, dimension(*)	ipartsp,
		integer, dimension(2,0:npart)	lprtsph,
		integer, dimension(*)	lonfsph )

Definition at line 28 of file sphonf0.F.

C-----------------------------------------------
C   LONFSPH(3,NUMSPH) : 
C     LIST OF PARTICLES SORTED FROM IPRT=1 TO NPART AND INSIDE EACH PART, 
C       PARTICLES ARE SPLITED IN ACTIVE AND INACTIVE PARTICLES.
C     LONFSPH(K) : PARTICLE NUMBER (1<= ... <=NUMSPH)
C-----------------------------------------------
C   LPRTSPH(2,0:NPART) :
C    LPRTSPH(1,IPRT) : LAST ACTIVE PARTICLE RECORD IN LONFSPH
C                           RELATED TO PART IPRT
C    LPRTSPH(2,IPRT) : LAST INACTIVE PARTICLE RECORD IN LONFSPH
C                           RELATED TO PART IPRT
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      "com04_c.inc"
#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 KXSP(NISP,*),IXSP(KVOISPH,*),NOD2SP(*),IPARTSP(*),
     .        IPART(LIPART1,*),LPRTSPH(2,0:NPART),LONFSPH(*)
C     REAL
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IPRT,SUIVSPH,N
C-----------------------------------------------
      suivsph=0
      DO iprt=1,npart
       DO n=1,numsph
        IF(ipartsp(n)==iprt.AND.(kxsp(2,n) > 0 .OR. (kxsp(2,n)/=0.AND.
     .           n >= first_sphsol .AND. n < first_sphsol+nsphsol)))THEN
         suivsph=suivsph+1
         lonfsph(suivsph)=n
        ENDIF
       ENDDO
       lprtsph(1,iprt)=suivsph
       DO n=1,numsph
        IF(ipartsp(n)==iprt.AND.(kxsp(2,n) < 0 .AND. 
     .           (n < first_sphsol .OR. n >= first_sphsol+nsphsol)))THEN
         suivsph=suivsph+1
         lonfsph(suivsph)=n
        ENDIF
       ENDDO
       lprtsph(2,iprt)=suivsph
      ENDDO
C--------------------------------------------------
      RETURN