Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | Nalpha | = | 0 | ||
integer, | public | :: | Nbeta | = | 1 | ||
integer, | public | :: | iSingle_alpha | = | 0 | ||
integer, | public | :: | iSingle_beta | = | 0 | ||
real(kind=8), | public | :: | Dalpha | ||||
real(kind=8), | public | :: | Dbeta | ||||
real(kind=8), | public, | ALLOCATABLE | :: | alpha(:) | |||
real(kind=8), | public, | ALLOCATABLE | :: | beta(:) |
TYPE AnglesStructure INTEGER :: Nalpha = 0, Nbeta = 1, iSingle_alpha = 0, iSingle_beta = 0 REAL (KIND=8) :: Dalpha, Dbeta REAL (KIND=8), ALLOCATABLE:: alpha( : ), beta( : ) END TYPE AnglesStructure