intstamp_init.F File Reference

#include "implicit_f.inc"
#include "intstamp_c.inc"
#include "parit_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	intstamp_init (intstamp, icodr)

Function/Subroutine Documentation

intstamp_init()

subroutine intstamp_init	(	type(intstamp_data), dimension(*)	intstamp,
		integer, dimension(*)	icodr )

Definition at line 30 of file intstamp_init.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE intstamp_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      "intstamp_c.inc"
#include      "parit_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ICODR(*)
C     REAL
      TYPE(INTSTAMP_DATA) INTSTAMP(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER J, NN, MSR, IROT, K
C     REAL
      my_real
     .   vi(3)
C-----------------------------------------------
c      IF(NCYCLE==0)THEN
c        DO NN=1,NINTSTAMP
c          MSR=INTSTAMP(NN)%MSR
c          IF(ICODR(MSR) < 7) THEN
c            INTSTAMP(NN)%IROT=1
c          ELSE
c            INTSTAMP(NN)%IROT=0
c          END IF
c        END DO
c      END IF
C-----
      DO nn=1,nintstamp
C
        intstamp(nn)%FC(1)=zero
        intstamp(nn)%FC(2)=zero
        intstamp(nn)%FC(3)=zero
        intstamp(nn)%STF=zero
C
        intstamp(nn)%MC(1)=zero
        intstamp(nn)%MC(2)=zero
        intstamp(nn)%MC(3)=zero
        intstamp(nn)%STR=zero
C
        IF(iparit/=0)THEN
          DO j=1,3
           DO k=1,6
           intstamp(nn)%FC6(k,j)=zero
           intstamp(nn)%MC6(k,j)=zero
           END DO
          END DO
          DO k=1,6
          intstamp(nn)%ST6(k) =zero
          intstamp(nn)%STR6(k)=zero
          END DO
        END IF
C
      ENDDO
C
      RETURN