anioffc.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	anioffc (elbuf_tab, iparg, ioff, el2fa, nbf)

Function/Subroutine Documentation

anioffc()

subroutine anioffc	(	type (elbuf_struct_), dimension(ngroup), target	elbuf_tab,
		integer, dimension(nparg,*)	iparg,
		integer, dimension(*)	ioff,
		integer, dimension(*)	el2fa,
		integer	nbf )

Definition at line 30 of file anioffc.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod
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      "com01_c.inc"                                             
#include      "com04_c.inc"                                             
#include      "param_c.inc"                                                                                         
C-----------------------------------------------                        
C   D u m m y   A r g u m e n t s                                       
C-----------------------------------------------                        
      INTEGER IPARG(NPARG,*),EL2FA(*),NBF,IOFF(*)
      TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB                                  
C-----------------------------------------------                        
C   L o c a l   V a r i a b l e s                                       
C-----------------------------------------------                        
C     REAL                                                    
      INTEGER I, NG, NEL, NFT, ITY, LFT,LLT, MLW,                      
     .   N1,N2,N3,N4,NN1,NN2,NN3,NN4,NN5,NN6,NN7,NN8,NN9,N_FA                          
      REAL R4                                                           
      my_real
     .   off
      TYPE(G_BUFEL_)  ,POINTER :: GBUF     
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
      nn1 = 1                                                           
      nn2 = 1                                                           
      nn3 = 1                                                           
      nn4 = nn3 + numelq                                                
      nn5 = nn4 + numelc                                                
      nn6 = nn5 + numeltg                                               
      nn7 = nn6                                                         
      nn8 = nn7                                                         
      nn9 = nn8                                                                                                    
C-----------------------------------------------                        
C                                                                       
      DO ng=1,ngroup                                                    
        mlw = iparg(1,ng)                                              
        nel = iparg(2,ng)                                            
        nft = iparg(3,ng)
        ity = iparg(5,ng)
        lft=1                                                           
        llt=nel                                                         
C-----------------------------------------------                        
C       QUAD                                                            
C-----------------------------------------------                        
        IF(ity==2)THEN                                                
          n_fa = nn3 + nft                                              
C-----------------------------------------------                        
C       COQUES 4 N                                                      
C-----------------------------------------------                        
        ELSEIF(ity==3)THEN                                            
          n_fa = nn4 + nft                                              
C-----------------------------------------------                        
C       COQUES 3 N                                                      
C-----------------------------------------------                        
        ELSEIF(ity==7)THEN                                            
          n_fa = nn5 + nft                                              
C-----------------------------------------------                        
C       RNUR                                                            
C-----------------------------------------------                        
        ELSEIF(ity==50)THEN                                           
          n_fa = nn9 + nft                                              
        ELSE                                                            
          ity=0                                                         
        ENDIF                                                           
C-----------------------------------------------                        
        IF(ity/=0)THEN                                                
          IF(mlw==0)THEN                                               
C-----------------------------------------------                        
C           DUMMY ELEMENTS                                                
C-----------------------------------------------                        
            DO i=lft,llt                                                
              ioff(el2fa(n_fa+i)) = 0                                   
            ENDDO                                                       
          ELSE                                                           
C-----------------------------------------------                        
C           OFF                                                           
C-----------------------------------------------                        
            gbuf => elbuf_tab(ng)%GBUF
            DO i=lft,llt                 
              off = huge(off)                                 
              IF (mlw/=0 .AND. mlw/=13) off = elbuf_tab(ng)%GBUF%OFF(i)
              ioff(el2fa(n_fa+i)) = nint(min(off,one))
            ENDDO                                                         
          ENDIF                                                          
        ENDIF                                                           
C-----------------------------------------------                        
      ENDDO                                                             
C-----------------------------------------------                        
      CALL write_c_c(ioff,nbf)                                          
C                                                                       
      RETURN