delnumbf.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	delnumbf (iparg, ixt, ixp, ixr, el2fa, nbf, inum, inumx1)

Function/Subroutine Documentation

delnumbf()

subroutine delnumbf	(	integer, dimension(nparg,*)	iparg,
		integer, dimension(nixt,*)	ixt,
		integer, dimension(nixp,*)	ixp,
		integer, dimension(nixr,*)	ixr,
		integer, dimension(*)	el2fa,
		integer	nbf,
		integer, dimension(*)	inum,
		integer, dimension(*)	inumx1 )

Definition at line 30 of file delnumbf.F.

      use element_mod , only : nixt,nixr,nixp
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,*),                                           
     .        IXT(NIXT,*),IXP(NIXP,*),                                  
     .        IXR(NIXR,*),EL2FA(*),INUM(*),                             
     .        NBF,INUMX1(*),BUF                                             
C-----------------------------------------------                        
      INTEGER II(4),IE,NG, ITY, LFT, LLT, N, I, J,                      
     .        IPID, NEL, IAD, NFT, IMID,IALEL,MLW,                      
     .        NN1,NN2,NN3,NN4,NN5,NN6,NN7,NN8,NN9,NN10,                 
     .        NBF2                                                      
C-----------------------------------------------                        
C                                                                       
      nn1 = 1                                                           
      nn2 = 1                                                           
      nn3 = 1                                                           
      nn4 = nn3                                                         
      nn5 = nn4                                                         
      nn6 = nn5                                                         
      nn7 = nn6 + numelt                                                
      nn8 = nn7 + numelp                                                
      nn9 = nn8 + numelr                                                
      nn10= nn9                                                         
C                                                                       
      DO 490 ng=1,ngroup                                                
        mlw   =iparg(1,ng)                                              
        nel   =iparg(2,ng)                                              
        nft   =iparg(3,ng)                                              
        iad   =iparg(4,ng)                                              
        ity   =iparg(5,ng)                                              
        lft=1                                                           
        llt=nel                                                         
C-----------------------------------------------                        
C       TRUSS                                                           
C-----------------------------------------------                        
        IF(ity==4)THEN                                                
         DO i=lft,llt                                                   
          n = i + nft                                                   
          inum(el2fa(nn6+n)) = ixt(nixt,n)                              
         ENDDO                                                          
C-----------------------------------------------                        
C       POUTRES                                                         
C-----------------------------------------------                        
        ELSEIF(ity==5)THEN                                            
         DO i=lft,llt                                                   
          n = i + nft                                                   
          inum(el2fa(nn7+n)) = ixp(nixp,n)                              
         ENDDO                                                          
C-----------------------------------------------                        
C       RESSORTS                                                        
C-----------------------------------------------                        
        ELSEIF(ity==6)THEN                                            
         DO i=lft,llt                                                   
          n = i + nft                                                   
          inum(el2fa(nn8+n)) = ixr(nixr,n)                              
          IF(mlw==3)inum(el2fa(nn8+n)+1) = ixr(nixr,n)                
         ENDDO                                                          
C-----------------------------------------------                        
        ELSE                                                            
        ENDIF                                                           
 490  CONTINUE                                                          
C-----------------------------------------------                        
      CALL write_i_c(inum,nbf)                                          
      CALL write_i_c(inumx1,nanim1d)                                    
C-----------------------------------------------                        
C                                                                       
      RETURN