cube Interface

interface
public subroutine cube(ia, n) bind(C, Name='real_cube')

Arguments

Type IntentOptional Attributes Name
real(kind=C_double), intent(inout) :: ia(n)
integer(kind=C_size_t), Value :: n