ugeom.F

Go to the documentation of this file.

      SUBROUTINE ugeom                                                          
*                                                                               
* *** Define user geometry set up                                               
*                                                                                                                                                                                                                       
*                                                                               
      dimension par(3)                                                         
      dimension ac6f6(2),zc6f6(2),wc6f6(2)
*                                                                               
* *** C6F6 compound parameters                                                   
      DATA ac6f6/12.02, 19.01/                                            
      DATA zc6f6/ 6.  ,  9.  /                                                     
      DATA wc6f6/ 6.  ,  6.  /                                                                                                                
*                    
      CALL gsmixt(1,'C6F6',ac6f6,zc6f6,1.61,-2,wc6f6)
*                                               
*                                                                               
* *** Defines USER tracking media parameters
      imat   = 1                                    
      fieldm = 0.0                                                             
      ifield = 0                                                               
      tmaxfd = 10.0                                                             
      stemax = 1000.                                                            
      deemax = 0.20                                                            
      epsil  = 0.001                                                           
      stmin  = 0.010                                                           
*                                                                               
      CALL gstmed( 1,'C6F6',imat, 0 ,ifield,fieldm,tmaxfd,                
     *               stemax,deemax,epsil,stmin, 0 , 0 )        
*
*
* *** Geometry                                                                               
      par(1) = 0.                                                               
      par(2) = 5.                                                               
      par(3) = 5.                                                               
      CALL gsvolu('C6F6','TUBE',1,par,3,ivol)                     
*                                                                               
* *** Close geometry banks. (obligatory system routine)                         
      CALL ggclos                                                               
*
*
* *** dessin
      CALL gsatt('*','SEEN',1)
*
      DO ix = 1,3
        CALL gdopen(ix)
        scale =   1.75
        paxis =   0.
        saxis =   1.
        CALL gdrawc('C6F6',ix,0.,10.,9.5,scale,scale)
        CALL gdaxis(paxis,paxis,paxis,saxis)
        CALL gdscal(10. , 0.3)
        CALL gdclos
      END DO
*
                                                                               
      END