get_etfac_s.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	get_etfac_s (nel, sfac, mtn)

Function/Subroutine Documentation

get_etfac_s()

subroutine get_etfac_s	(	integer	nel,
			sfac,
		integer	mtn )

Definition at line 35 of file get_etfac_s.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
     .   sfac(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I ,J,IKTMAT
C     REAL
C-----------------------------------------------
       CALL iktmat_ini(mtn,iktmat)
        DO i = 1,nel
          sfac(i)= one
        ENDDO
       IF (iktmat==0.OR.inconv < 0) RETURN
C
        DO i = 1,nel
         sfac(i)=max(em5,ktbuf_str(ng_imp)%ETFAC(i))
        ENDDO
C
      RETURN