aniofff.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	aniofff (elbuf_tab, iparg, ioff, el2fa, nbf, ioffx1)

Function/Subroutine Documentation

aniofff()

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

Definition at line 30 of file aniofff.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(*),                      
     .        NBPART,IOFFX1(*)                                                 
      TYPE (ELBUF_STRUCT_), TARGET, DIMENSION(NGROUP) :: ELBUF_TAB
C-----------------------------------------------                        
C   L o c a l   V a r i a b l e s                                       
C-----------------------------------------------                        
      INTEGER I, NG, NEL, NFT, ITY, LFT, NPT,                      
     .        N, J, LLT, N1,N2,N3,N4,N_FA,MLW,                                         
     .        NN1,NN2,NN3,NN4,NN5,NN6,NN7,NN8,NBF2,RBUF                                   
      TYPE(G_BUFEL_)  ,POINTER :: GBUF     
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
      nn1 = 1                                                           
      nn2 = 1                                                           
      nn3 = 1                                                           
      nn4 = nn3                                                         
      nn5 = nn4                                                         
      nn6 = nn5                                                         
      nn7 = nn6 + numelt                                                
      nn8 = nn7 + numelp                                                
C-----------------------------------------------                        
      DO ng=1,ngroup                                                    
        mlw   =iparg(1,ng)                                              
        nel   =iparg(2,ng)                                              
        ity   =iparg(5,ng)                                              
        nft   =iparg(3,ng)                                              
        lft=1                                                           
        llt=nel                                                         
C
        gbuf => elbuf_tab(ng)%GBUF
C-----------------------------------------------                        
C       TRUSS                                                           
C-----------------------------------------------                        
        IF (ity ==4) THEN                                                
          n_fa = nn6 + nft                                            
C-----------------------------------------------                        
C       POUTRES                                                         
C-----------------------------------------------                        
        ELSEIF (ity == 5) THEN                                            
          n_fa = nn7 + nft                                            
C-----------------------------------------------                        
C       RESSORTS                                                        
C-----------------------------------------------                        
        ELSEIF (ity == 6) THEN                                            
          n_fa = nn8 + 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                                                         
          ELSEIF (ity == 6 .AND. mlw == 3) THEN                              
C-----------------------------------------------                        
C         PULLEY SPRING                                                 
C-----------------------------------------------                        
            DO i=lft,llt                                                  
              ioff(el2fa(n_fa+i)) = nint(min(gbuf%OFF(i),one))            
              ioff(el2fa(n_fa+i)+1) = nint(min(gbuf%OFF(i),one))          
            ENDDO                                                         
C-----------------------------------------------                        
          ELSEIF (ity == 1 .or. ity == 2 .or. ity == 51 .or.
     .            ity == 3 .or. ity == 7 .or. ity == 4  .or.
     .            ity == 5 .or. ity == 6) THEN
            DO i=lft,llt
              ioff(el2fa(n_fa+i)) = nint(min(gbuf%OFF(i),one))
            ENDDO
C-----------------------------------------------                        
          ENDIF ! IF (MLW == 0)
        ENDIF ! IF (ITY /= 0)
C-----------------------------------------------                        
      ENDDO ! DO NG=1,NGROUP
C-----------------------------------------------                        
      CALL write_c_c(ioff,nbf)                                          
C + X-ELEMENTS                                                     
      CALL write_c_c(ioffx1,nanim1d)                                    
C                                                                       
      RETURN