| [807] | 1 |
|
|---|
| 2 | SUBROUTINE UGEOM
|
|---|
| 3 | *
|
|---|
| 4 | * *** Define user geometry set up
|
|---|
| 5 | *
|
|---|
| 6 | *
|
|---|
| 7 | DIMENSION PAR(3)
|
|---|
| 8 | DIMENSION AC6F6(2),ZC6F6(2),WC6F6(2)
|
|---|
| 9 | *
|
|---|
| 10 | * *** C6F6 compound parameters
|
|---|
| 11 | DATA AC6F6/12.02, 19.01/
|
|---|
| 12 | DATA ZC6F6/ 6. , 9. /
|
|---|
| 13 | DATA WC6F6/ 6. , 6. /
|
|---|
| 14 | *
|
|---|
| 15 | CALL GSMIXT(1,'C6F6',AC6F6,ZC6F6,1.61,-2,WC6F6)
|
|---|
| 16 | *
|
|---|
| 17 | *
|
|---|
| 18 | * *** Defines USER tracking media parameters
|
|---|
| 19 | IMAT = 1
|
|---|
| 20 | FIELDM = 0.0
|
|---|
| 21 | IFIELD = 0
|
|---|
| 22 | TMAXFD = 10.0
|
|---|
| 23 | STEMAX = 1000.
|
|---|
| 24 | DEEMAX = 0.20
|
|---|
| 25 | EPSIL = 0.001
|
|---|
| 26 | STMIN = 0.010
|
|---|
| 27 | *
|
|---|
| 28 | CALL GSTMED( 1,'C6F6',IMAT, 0 ,IFIELD,FIELDM,TMAXFD,
|
|---|
| 29 | * STEMAX,DEEMAX,EPSIL,STMIN, 0 , 0 )
|
|---|
| 30 | *
|
|---|
| 31 | *
|
|---|
| 32 | * *** Geometry
|
|---|
| 33 | PAR(1) = 0.
|
|---|
| 34 | PAR(2) = 5.
|
|---|
| 35 | PAR(3) = 5.
|
|---|
| 36 | CALL GSVOLU('C6F6','TUBE',1,PAR,3,IVOL)
|
|---|
| 37 | *
|
|---|
| 38 | * *** Close geometry banks. (obligatory system routine)
|
|---|
| 39 | CALL GGCLOS
|
|---|
| 40 | *
|
|---|
| 41 | *
|
|---|
| 42 | * *** dessin
|
|---|
| 43 | CALL GSATT ('*','SEEN',1)
|
|---|
| 44 | *
|
|---|
| 45 | DO IX = 1,3
|
|---|
| 46 | CALL GDOPEN (IX)
|
|---|
| 47 | SCALE = 1.75
|
|---|
| 48 | PAXIS = 0.
|
|---|
| 49 | SAXIS = 1.
|
|---|
| 50 | CALL GDRAWC ('C6F6',IX,0.,10.,9.5,SCALE,SCALE)
|
|---|
| 51 | CALL GDAXIS (PAXIS,PAXIS,PAXIS,SAXIS)
|
|---|
| 52 | CALL GDSCAL (10. , 0.3)
|
|---|
| 53 | CALL GDCLOS
|
|---|
| 54 | END DO
|
|---|
| 55 | *
|
|---|
| 56 |
|
|---|
| 57 | END
|
|---|
