Skip to content

Instantly share code, notes, and snippets.

@codedeep79

codedeep79/demo_oneapi.f90

Created October 4, 2025 03:21
Show Gist options
  • Save codedeep79/32aa57af06133f86c5470a8282791c6d to your computer and use it in GitHub Desktop.
Save codedeep79/32aa57af06133f86c5470a8282791c6d to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. codedeep79 created this gist Oct 4, 2025.
    40 changes: 40 additions & 0 deletions demo_oneapi.f90
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,40 @@
    program demo_oneapi
    implicit none
    integer, parameter :: n = 500
    real(8), dimension(n,n) :: A, B, C
    integer :: i, j, k
    real(8) :: start_time, end_time

    ! Khởi tạo ma trận A, B
    do i = 1, n
    do j = 1, n
    A(i,j) = dble(i + j)
    B(i,j) = dble(i - j)
    end do
    end do
    C = 0.0d0

    print *, "======================================="
    print *, " 🚀 Demo Intel oneAPI Fortran Compiler "
    print *, "======================================="
    print *, "Hello Intel oneAPI from Fortran!"
    print *, "Thực hiện nhân ma trận kích thước ", n, "x", n

    call cpu_time(start_time)

    ! Nhân ma trận C = A * B
    do i = 1, n
    do j = 1, n
    do k = 1, n
    C(i,j) = C(i,j) + A(i,k) * B(k,j)
    end do
    end do
    end do

    call cpu_time(end_time)

    print *, "✅ Hoàn thành nhân ma trận."
    print *, "⏱️ Thời gian chạy (giây): ", end_time - start_time
    print *, "Ví dụ kết quả: C(1,1) = ", C(1,1)
    print *, "======================================="
    end program demo_oneapi