| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | module chamb_sub | ||
| 2 | |||
| 3 | implicit none | ||
| 4 | |||
| 5 | contains | ||
| 6 | |||
| 7 | !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc | ||
| 8 | ! | ||
| 9 | 9629768 | subroutine chamb_can(y,phi,ierr) | |
| 10 | ! | ||
| 11 | use chamb_mod, only : rnegflag | ||
| 12 | ! | ||
| 13 | ! checks whether the point is inside the vacuum chamber | ||
| 14 | ! Input parameters: | ||
| 15 | ! formal: y(i) - coordinates on the poloidal cross section | ||
| 16 | ! phi - toroidal angle | ||
| 17 | ! Outout parameters: | ||
| 18 | ! formal: ierr -error code (0 if the point is inside 1 - othervice) | ||
| 19 | ! | ||
| 20 | implicit none | ||
| 21 | ! | ||
| 22 | integer :: ierr | ||
| 23 | double precision :: phi | ||
| 24 | double precision, dimension(2) :: y | ||
| 25 | ! | ||
| 26 |
2/2✓ Branch 0 taken 4 times.
✓ Branch 1 taken 9629764 times.
|
9629768 | if(y(1).ge.1.d0) then |
| 27 | 4 | ierr = 1 | |
| 28 | else | ||
| 29 | 9629764 | ierr = 0 | |
| 30 | endif | ||
| 31 | ! | ||
| 32 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 9629768 times.
|
9629768 | if(rnegflag) then |
| 33 | ✗ | rnegflag=.false. | |
| 34 | ✗ | ierr = 2 | |
| 35 | endif | ||
| 36 | ! | ||
| 37 | 9629768 | end subroutine chamb_can | |
| 38 | end module chamb_sub | ||
| 39 |