Page 1 Source Listing BLAS90MKL 2024-02-18 14:20 FOR\BLAS90MKL.F90 1 PROGRAM BLAS90MKL 2 3 REAL X(10), Y(10), sdot, RES 4 REAL A(5,3), Alpha 5 REAL B(3,3), C(3,2), D(3,3), Beta 6 7 INTEGER N, incX, incY, I 8 INTEGER M, J, Lda 9 INTEGER Ldb, Ldc 10 CHARACTER Uplo, Side 11 12 EXTERNAL sdot 13 14 PRINT *,'BLAS level 1' 15 N = 5 16 incX = 2 17 incY = 1 18 DO i = 1, 10 19 X(i) = 2.0e0 20 Y(i) = 1.0e0 21 END DO 22 RES = sdot (N, X, incX, Y, incY) 23 PRINT *,' SDOT = ', RES 24 25 PRINT *,'BLAS level 2' 26 M = 2 27 N = 3 28 lda = 5 29 incX = 2 30 incY = 1 31 Alpha = 0.5 32 DO I = 1, 10 33 X(I) = 1.0 34 Y(I) = 1.0 35 END DO 36 DO I = 1, M 37 DO j = 1, N 38 A(I,J) = J 39 END DO 40 END DO 41 CALL sger (M, N, Alpha, X, incX, Y, incY, A, lda) 42 PRINT *,' SGER(Matrix A:)' 43 DO I = 1, M 44 PRINT *, ' ', (A(I,J), J = 1, N) 45 END DO 46 47 PRINT *,'BLAS level 3' 48 Uplo = 'u' 49 Side = 'l' 50 M = 3 51 N = 2 52 Lda = 3 53 Ldb = 3 54 Ldc = 3 55 Alpha = 0.5 56 Beta = 2.0 57 Page 2 Source Listing BLAS90MKL 2024-02-18 14:20 FOR\BLAS90MKL.F90 58 DO I = 1, M 59 DO J = 1, M 60 B(I,J) = 1.0 61 END DO 62 END DO 63 DO I = 1, M 64 DO J = 1, N 65 C(I,J) = 1.0 66 D(I,J) = 2.0 67 END DO 68 END DO 69 CALL ssymm (Side, Uplo, M, N, Alpha, B, Lda, C, Ldb, Beta, D, Ldc) 70 PRINT *,' SSYMM(Matrix D:)' 71 72 DO I = 1, M 73 PRINT *, ' ', (D(I,J), J = 1, N) 74 END DO 75 76 END PROGRAM BLAS90MKL ENTRY POINTS Address Type Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Local 4 R(4) 4 2 15 38,41,44 ALPHA Local 4 R(4) 4 scalar 31,41,55,69 B Local 5 R(4) 4 2 9 60,69 BETA Local 5 R(4) 4 scalar 56,69 BLAS90MKL Prog 1 C Local 5 R(4) 4 2 6 65,69 D Local 5 R(4) 4 2 9 66,69,73 I Local 7 I(4) 4 scalar 18,19,20,32,33,34,36,38,43,44,58,6 0,63,65,66,72,73 INCX Local 7 I(4) 4 scalar 16,22,29,41 INCY Local 7 I(4) 4 scalar 17,22,30,41 J Local 8 I(4) 4 scalar 37,38,44,59,60,64,65,66,73 LDA Local 8 I(4) 4 scalar 28,41,52,69 LDB Local 9 I(4) 4 scalar 53,69 LDC Local 9 I(4) 4 scalar 54,69 M Local 8 I(4) 4 scalar 26,36,41,43,50,58,59,63,69,72 N Local 7 I(4) 4 scalar 15,22,27,37,41,44,51,64,69,73 RES Local 3 R(4) 4 scalar 22,23 SDOT Func 3 R(4) 4 scalar 22 SGER Subr 41 41 SIDE Local 10 CHAR 1 scalar 49,69 SSYMM Subr 69 69 UPLO Local 10 CHAR 1 scalar 48,69 X Local 3 R(4) 4 1 10 19,22,33,41 Y Local 3 R(4) 4 1 10 20,22,34,41 Page 3 Source Listing BLAS90MKL 2024-02-18 14:20 Subprograms/Common Blocks FOR\BLAS90MKL.F90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BLAS90MKL Prog 1 COMPILER: Intel(R) Fortran 24.0-1238 BLAS90MKL.EXEyintel Fortran CompilerzŽÀsŒ‹‰Ê BLAS level 1 SDOT = 10.00000 BLAS level 2 SGER(Matrix A:) 1.500000 2.500000 3.500000 1.500000 2.500000 3.500000 BLAS level 3 SSYMM(Matrix D:) 5.500000 5.500000 5.500000 5.500000 5.500000 5.500000