starter_2source_2output_2anim_2aniofff_8F_source.html

Copyright>        OpenRadioss

Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.

Copyright>

Copyright>        This program is free software: you can redistribute it and/or modify

Copyright>        it under the terms of the GNU Affero General Public License as published by

Copyright>        the Free Software Foundation, either version 3 of the License, or

Copyright>        (at your option) any later version.

Copyright>

Copyright>        This program is distributed in the hope that it will be useful,

Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of

Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

Copyright>        GNU Affero General Public License for more details.

Copyright>

Copyright>        You should have received a copy of the GNU Affero General Public License

Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.

Copyright>

Copyright>

Copyright>        Commercial Alternative: Altair Radioss Software

Copyright>

Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss

Copyright>        software under a commercial license.  Contact Altair to discuss further if the

Copyright>        commercial version may interest you: https://www.altair.com/radioss/.

!||====================================================================

!||    aniofff        ../starter/source/output/anim/aniofff.F

!||--- called by ------------------------------------------------------

!||    genani1        ../starter/source/output/anim/genani1.F

!||--- calls      -----------------------------------------------------

!||--- uses       -----------------------------------------------------

!||====================================================================


      SUBROUTINE aniofff(ELBUF_TAB,IPARG,IOFF  ,EL2FA,

     .                   NBF  ,IOFFX1)

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


      END

min
#define min(a, b)
Definition macros.h:20

aniofff
subroutine aniofff(elbuf_tab, iparg, ioff, el2fa, nbf, ioffx1)
Definition aniofff.F:32

write_c_c
void write_c_c(int *w, int *len)
Definition write_routtines.c:591