put_etfac.F File Reference

#include "implicit_f.inc"
#include "impl1_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	put_etfac (nel, et, mtn)

Function/Subroutine Documentation

put_etfac()

subroutine put_etfac	(	integer	nel,
			et,
		integer	mtn )

Definition at line 35 of file put_etfac.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE imp_ktan
      USE imp_ktan_def
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      "impl1_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NEL,MTN
C     REAL
      my_real
     .   et(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I ,J ,MPT,NPTS,IKTMAT
C     REAL
      my_real
     .   etf
C-----------------------------------------------
      CALL iktmat_ini(mtn,iktmat)
      IF (imconv < 0.OR.iktmat==0) RETURN
       IF (mtn==2.OR.mtn==36.OR.mtn==78) THEN
        DO i = 1,nel
         etf=ktbuf_str(ng_imp)%ETFAC(i)
         ktbuf_str(ng_imp)%ETFAC(i) = min(etf,et(i))
        ENDDO
       ELSE
        DO i = 1,nel
         etf=ktbuf_str(ng_imp)%ETFAC(i)
         ktbuf_str(ng_imp)%ETFAC(i) = max(etf,et(i))
        ENDDO
       ENDIF
C
      RETURN