spmd_fxb_for_pon.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "fxbcom.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	spmd_fxb_for_pon (fxbipm, mfextp, fskyfxb, dsky, iadn)

Function/Subroutine Documentation

spmd_fxb_for_pon()

subroutine spmd_fxb_for_pon	(	integer, dimension(nbipm,*)	fxbipm,
			mfextp,
			fskyfxb,
		integer	dsky,
		integer, dimension(*)	iadn )

Definition at line 167 of file spmd_fxb_for_pon.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
        USE spmd_comm_world_mod, ONLY : spmd_comm_world
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "fxbcom.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER FXBIPM(NBIPM,*), DSKY, IADN(*)
      my_real
     .        mfextp(*), fskyfxb(dsky,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NFX, NMOD, NME, NSN, NVAR, IAD, I, J, JJ,
     .        ITAG, AVAR
      my_real
     .       , DIMENSION(:,:), ALLOCATABLE :: fskyl
C
      DO nfx=1,nfxbody
         nmod=fxbipm(4,nfx)
         nme=fxbipm(17,nfx)
         nsn=fxbipm(18,nfx)
         avar=fxbipm(13,nfx)
         iad=iadn(nfx)
         ALLOCATE(fskyl(nsn,nme+nmod))
         DO i=1,nme+nmod
            DO j=1,nsn
               jj=nint(fskyfxb(iad+j,1))
               fskyl(jj,i)=fskyfxb(iad+j,1+i)
            ENDDO
         ENDDO
C
         DO i=1,nme+nmod
            mfextp(avar+i-1)=zero
            DO j=1,nsn
               mfextp(avar+i-1)=mfextp(avar+i-1)+fskyl(j,i)
            ENDDO
         ENDDO
         DEALLOCATE(fskyl)
      ENDDO
      RETURN