program Sample
  USE, INTRINSIC :: ISO_C_BINDING
  USE samplemodule
  implicit none
INTEGER (KIND=C_INT) :: L
  call mycsample()
end program Sample