public pure function addCRS_and_CRS(CRS1, CRS2) result(CRS_ret)
$OMP parallel do private(col_2,col_1)
$OMP atomic
$OMP end parallel do
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
type(CRS_),
|
intent(in) |
|
|
:: |
CRS1 |
|
|
type(CRS_),
|
intent(in) |
|
|
:: |
CRS2 |
|
Return Value
type(CRS_)