test_int_array_c Subroutine

public subroutine test_int_array_c(dim1, NPlot) bind(c,name='test_int_array')

Arguments

Type IntentOptional Attributes Name
integer(kind=C_INT), value :: dim1
integer(kind=C_INT), intent(in) :: NPlot(dim1)

Source Code

  subroutine test_int_array_c(dim1,Nplot) &
       bind(c,name='test_int_array')

    INTEGER(kind=C_INT), value :: dim1
    INTEGER(kind=C_INT),INTENT(IN) :: NPlot(dim1)

    write(*,*) Nplot, "Nplot"
    write(*,*) "product", PRODUCT(Nplot+1)

  end subroutine test_int_array_c