subset_ini.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "tabsiz_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	subset_ini (subset)

Function/Subroutine Documentation

subset_ini()

subroutine subset_ini

(

type (subset_), dimension(nsubs)

subset

)

Definition at line 29 of file subset_ini.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE groupdef_mod
      USE names_and_titles_mod , ONLY : nchartitle
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      "tabsiz_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER LEN_IA
!
      TYPE (SUBSET_) , DIMENSION(NSUBS) :: SUBSET
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,ID,ISU,NCHILD,NBPART,NBTPART,ICHILD,IPART,IPARTTOT,
     .        PARENT,LEVEL,TH_PART,L_SUB,THIAD
      CHARACTER(LEN=NCHARTITLE) :: TITR
C-----------------------------------------------
!---
!  Size of SUBSET_ structure
!---
!
      l_sub = 0
      DO isu=1,nsubs
! variables
        id       = subset(isu)%ID
          l_sub = l_sub + 1
        nchild   = subset(isu)%NCHILD
          l_sub = l_sub + 1
        nbpart   = subset(isu)%NPART
          l_sub = l_sub + 1
        nbtpart  = subset(isu)%NTPART
          l_sub = l_sub + 1
        parent   = subset(isu)%PARENT
          l_sub = l_sub + 1
        level   = subset(isu)%LEVEL
          l_sub = l_sub+1
        thiad   = subset(isu)%THIAD
          l_sub = l_sub+1
!!        TH_FLAG = SUBSET(ISU)%TH_FLAG
!!          L_SUB = L_SUB+1
!!        TITR    = SUBSET(ISU)%TITLE
!!          L_SUB = L_SUB+1
!
! arrays
          l_sub = l_sub + nchild
          l_sub = l_sub + nbpart
          l_sub = l_sub + nbtpart
          l_sub = l_sub + 10  !  /iTH (9) + /TH (1) -> SUBSET(I)%NVARTH(ITHFLAG)
      ENDDO ! DO ISU=1,NSUBS
!
!---------
      lensubs = l_sub
!---------
      RETURN