|
logical | stage1 |
| what is this ?
|
|
logical | exterior |
| what is this ?
|
|
logical | dorm |
| what is this ?
|
|
integer | nintervals |
| what is this ?
|
|
integer | nsegments |
| what is this ?
|
|
integer | ic |
| what is this ?
|
|
integer | np4 |
| what is this ?
|
|
integer | np1 |
| what is this ?
|
|
integer, dimension(:), allocatable | icint |
| what is this ?
|
|
real | originalalpha |
| what is this ?
|
|
real, dimension(:), allocatable | xpoly |
| what is this ?
|
|
real, dimension(:), allocatable | ypoly |
| what is this ?
|
|
real, dimension(:), allocatable | phi |
| what is this ?
|
|
real, dimension(:), allocatable | phid |
| what is this ?
|
|
real, dimension(:,:), allocatable | cc |
| what is this ?
|
|
integer | ilength |
| what is this ?
|
|
real | totallength |
| what is this ?
|
|
integer | niterations |
| counter; eventually redundant; 24 Oct 12;
|
|
integer | iangle |
| angle ; eventually redundant; 24 Oct 12;
|
|
real | rmid |
| used to define local polar coordinate; eventually redundant; 24 Oct 12;
|
|
real | zmid |
| used to define local polar coordinate; eventually redundant; 24 Oct 12;
|
|
real | alpha |
| eventually redundant; 24 Oct 12;
|
|