initbuf.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

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

Function/Subroutine Documentation

initbuf()

subroutine 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)	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 )

Definition at line 31 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,JMULT,JHBE,JIVF,JPOR,JPLA,JCLOSE,    
     .   IREP,IINT,IGTYP,JCVT,ISROT,ISRAT,ISORTH,ISORTHG,ICSEN,IFAILURE 
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)                                          
      ELSE             ! attention dkt9_s3 utilise ce flag              
        jeul    = 0                                                     
      END IF                                                            
      jtur    = iparg(12,ng)                                            
      jthe    = iparg(13,ng)                                            
      jlag    = iparg(14,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)                                            
      isorth  = iparg(42,ng)                                            
      isorthg = isorth                                                  
      ifailure = iparg(43,ng)                                           
C----                                                                   
      RETURN