i24_prepare.F File Reference

#include "implicit_f.inc"
#include "spmd_c.inc"
#include "param_c.inc"
#include "com04_c.inc"
#include "com01_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	spmd_i24_prepare (mode, ipari, intbuf_tab, iad_elem, fr_elem, intlist, nbintc, iad_i24, sfr_i24, fr_i24, i24maxnsne)

Function/Subroutine Documentation

spmd_i24_prepare()

subroutine spmd_i24_prepare	(	integer	mode,
		integer, dimension(npari,*)	ipari,
		type(intbuf_struct_), dimension(*)	intbuf_tab,
		integer, dimension(2,*)	iad_elem,
		integer, dimension(*)	fr_elem,
		integer, dimension(*)	intlist,
		integer	nbintc,
		integer, dimension(nbintc+1,nspmd)	iad_i24,
		integer	sfr_i24,
		integer, dimension(*)	fr_i24,
		integer	i24maxnsne )

Definition at line 32 of file i24_prepare.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE tri7box
      USE message_mod
      USE intbufdef_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "spmd_c.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "param_c.inc"
#include      "com04_c.inc"
#include      "com01_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER MODE
      INTEGER IPARI(NPARI,*),IAD_ELEM(2,*),FR_ELEM(*),
     *        INTLIST(*),NBINTC,IAD_I24(NBINTC+1,NSPMD), SFR_I24,
     *        FR_I24(*),I24MAXNSNE
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
C-----------------------------------------------
C   L o c a l  V a r i a b l e s
C-----------------------------------------------
      INTEGER ITAG(NUMNOD),SZFRI24,IAFR24
      INTEGER P,I,J,NI,NIN,NOD,NTY,NSN,SN,NSNE
C-----------------------------------------------
C Partie 1, calcul des tailles de FR_I24
C-----------------------------------------------
      itag(1:numnod)=0
      IF (mode==1)THEN
 
        szfri24 = 0
      
        DO p = 1, nspmd
          IF(iad_elem(1,p+1)-iad_elem(1,p)>0) THEN
            DO j=iad_elem(1,p),iad_elem(1,p+1)-1
              nod = fr_elem(j)
              itag(nod)=1
            ENDDO
            DO ni=1,nbintc
                nin = intlist(ni)
              nty   = ipari(7,nin)
              nsn   = ipari(5,nin)
 
              IF(nty==24) THEN
                DO i=1,nsn
                  sn = intbuf_tab(nin)%NSV(i)
C Fictives T24 E2E Nodes hav NSV over Numnod
                  IF(sn<=numnod)THEN
                    IF(itag(sn)==1)THEN
                      szfri24 = szfri24+1
                    ENDIF
                  ENDIF
                ENDDO
              ENDIF
            ENDDO          
C Flush ITAG to zero again for next CPU
            DO j=iad_elem(1,p),iad_elem(1,p+1)-1
              nod = fr_elem(j)
              itag(nod)=0
            ENDDO
          ENDIF
        ENDDO
        sfr_i24=szfri24
C-----------------------------------------------
C Partie 2, on remplis FR_I24 et IAD_I24
C-----------------------------------------------
      ELSEIF(mode==2)THEN
        iad_i24(1,1)=1
        iafr24=0
        DO p = 1, nspmd
          IF(iad_elem(1,p+1)-iad_elem(1,p)>0) THEN
            DO j=iad_elem(1,p),iad_elem(1,p+1)-1
              nod = fr_elem(j)
              itag(nod)=1
            ENDDO
 
            DO ni=1,nbintc
                iad_i24(ni+1,p)=iad_i24(ni,p)
                nin = intlist(ni)
              nty   = ipari(7,nin)
              nsn   = ipari(5,nin)
 
              IF(nty==24) THEN
                DO i=1,nsn
                  sn = intbuf_tab(nin)%NSV(i)
C Fictives T24 E2E Nodes hav NSV over Numnod
                  IF(sn<=numnod)THEN
                    IF(itag(sn)==1)THEN     
                      iad_i24(ni+1,p)=iad_i24(ni+1,p)+1
                iafr24 = iafr24 + 1
                      fr_i24(iafr24)=i
                    ENDIF
                 ENDIF
                ENDDO
              ENDIF
            ENDDO
C Flush ITAG to zero again for next CPU
            DO j=iad_elem(1,p),iad_elem(1,p+1)-1
              nod = fr_elem(j)
              itag(nod)=0
            ENDDO
            ELSE
            DO i=2,nbintc+1
                iad_i24(i,p)=iad_i24(1,p)
              ENDDO    
          ENDIF    ! IF(IAD_ELEM(1,P+1)-IAD_ELEM(1,P)>0)
            IF(p<nspmd)iad_i24(1,p+1)=iad_i24(nbintc+1,p)
        ENDDO
      ENDIF
 
C E2E SPMD
C Compute Max. number of Fictive E2E Nodes in Type24
C This is needed for Tags over nodes
C
      IF(mode==2)THEN
          i24maxnsne=0
          DO ni=1,nbintc
               nin = intlist(ni)
             nty   = ipari(7,nin)
             IF(nty==24)THEN
                nsne=ipari(55,nin)
                i24maxnsne=max(i24maxnsne,nsne)
             ENDIF
          ENDDO
      ENDIF
 
      i24com3 = 0
      i24com4 = 0
C-----------------------------------------------