3 #include "sll_memory.h"
4 #include "sll_working_precision.h"
36 generic,
public :: eta1_cell => eta1_cell_one_arg, &
38 generic,
public :: eta2_cell => eta2_cell_one_arg, &
76 sll_int32,
intent(in) :: i
101 sll_int32,
intent(in) :: i
102 sll_int32,
intent(in) :: j
112 sll_int32,
intent(in) :: cell_num
137 sll_int32,
intent(in) :: i1
138 sll_int32,
intent(in) :: i2
139 sll_int32,
intent(in) :: i3
164 sll_int32,
intent(in) :: k1
165 sll_int32,
intent(in) :: k2
166 sll_int32,
intent(in) :: k3
167 sll_int32,
intent(in) :: k4
Module to select the kind parameter.