private function get_pgen(this, nI, ilutI, ex, ic, ClassCount2, ClassCountUnocc2) result(pgen)
Type Bound
GAS_DiscardingGenerator_t
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
class(GAS_DiscardingGenerator_t),
|
intent(inout) |
|
|
:: |
this |
|
|
integer,
|
intent(in) |
|
|
:: |
nI(nel) |
|
|
integer(kind=n_int),
|
intent(in) |
|
|
:: |
ilutI(0:NIfTot) |
|
|
integer,
|
intent(in) |
|
|
:: |
ex(2,maxExcit) |
|
|
integer,
|
intent(in) |
|
|
:: |
ic |
|
|
integer,
|
intent(in) |
|
|
:: |
ClassCount2(ScratchSize) |
|
|
integer,
|
intent(in) |
|
|
:: |
ClassCountUnocc2(ScratchSize) |
|
Return Value
real(kind=dp)