initbuf_mod Module Reference

Functions/Subroutines
subroutine	initbuf (iparg, ng, mtn, llt, nft, iad, ity, npt, jale, ismstr, jeul, jtur, jthe, jlag, jmult, jhbe, jivf, mid, jpor, jcvt, jclose, jpla, irep, iint, igtyp, israt, isrot, icsen, isorth, isorthg, ifailure, jsms)

Function/Subroutine Documentation

initbuf()

subroutine initbuf_mod::initbuf	(	integer, dimension(nparg,*), intent(in)	iparg,
		integer, intent(in)	ng,
		integer, intent(out)	mtn,
		integer, intent(out)	llt,
		integer, intent(out)	nft,
		integer, intent(out)	iad,
		integer, intent(out)	ity,
		integer, intent(out)	npt,
		integer, intent(out)	jale,
		integer, intent(out)	ismstr,
		integer, intent(out)	jeul,
		integer, intent(out)	jtur,
		integer, intent(out)	jthe,
		integer, intent(out)	jlag,
		integer, intent(out)	jmult,
		integer, intent(out)	jhbe,
		integer, intent(out)	jivf,
		integer, intent(out)	mid,
		integer, intent(out)	jpor,
		integer, intent(out)	jcvt,
		integer, intent(out)	jclose,
		integer, intent(out)	jpla,
		integer, intent(out)	irep,
		integer, intent(out)	iint,
		integer, intent(out)	igtyp,
		integer, intent(out)	israt,
		integer, intent(out)	isrot,
		integer, intent(out)	icsen,
		integer, intent(out)	isorth,
		integer, intent(out)	isorthg,
		integer, intent(out)	ifailure,
		integer, intent(out)	jsms )

Definition at line 254 of file initbuf.F.

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      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT (IN)  :: IPARG(NPARG,*),NG
      INTEGER, INTENT (OUT) :: MTN,LLT,NFT,IAD,ITY,NPT,JALE,ISMSTR,
     .   JEUL,JTUR,JTHE,JLAG,MID,JMULT,JHBE,JIVF,JPOR,JPLA,JCLOSE,
     .   IREP,IINT,IGTYP,JCVT,ISROT,ISRAT,ISORTH,ISORTHG,ICSEN,IFAILURE,
     .   JSMS
C-----------------------------------------------
C    Comment : Initialisation des variables de vect01_c.inc
C              dans les boucles sur les groupes.
C              Necessaire pour routines telles que sbufad qui dimensionnent
C              le buffeur elementaire.
C-----------------------------------------------
C   S o u r c e  L i n e s
C=======================================================================
      mtn     = iparg(1,ng)    
      llt     = iparg(2,ng)    
      nft     = iparg(3,ng)    
      iad     = iparg(4,ng)    
      ity     = iparg(5,ng)    
      npt     = iparg(6,ng)     
      jale    = iparg(7,ng)     
      ismstr  = iparg(9,ng)     
 
      IF(ity==1.OR.ity==2)THEN
         jeul    = iparg(11,ng) 
      ELSEIF (mtn == 151 .AND. ity == 7) THEN
         jeul    = iparg(11,ng) 
      ELSE             ! attention dkt9_s3 utilise ce flag
         jeul    = 0
      END IF 
 
      jtur    = iparg(12,ng)    
      jthe    = iparg(13,ng)    
      jlag    = iparg(14,ng)
      mid     = iparg(18,ng)    
      jmult   = iparg(20,ng)    
      jhbe    = iparg(23,ng)    
      jivf    = iparg(24,ng)          
      jpor    = iparg(27,ng)          
      jpla    = iparg(29,ng)      
      jclose  = iparg(33,ng)      
      irep    = iparg(35,ng)      
      iint    = iparg(36,ng)    
      jcvt    = iparg(37,ng)
      igtyp   = iparg(38,ng)
      icsen   = iparg(39,ng)
      israt   = iparg(40,ng)      
      isrot   = iparg(41,ng)       
      IF(iparg(28,ng) == 10) isrot = iparg(74,ng)     
      isorth  = iparg(42,ng)      
      isorthg = isorth
 
      ifailure = iparg(43,ng)                  
 
      jsms = iparg(52,ng)
C----
      RETURN