Page 1 Source Listing SORTQQ95 2024-02-07 09:52 FOR\SORTQQ95.F90 1 PROGRAM SORTQQ95 2 3 USE IFPORT 4 INTEGER(2) array(10), i 5 array = (/143,99,612,61,712,9112,6,555,2223,67/) 6 7 PRINT *,'SORTQQ befor' 8 DO i = 1, 10 9 WRITE (*, 666) i, array (i) 10 END DO 11 12 CALL SORTQQ (LOC(array), 10, SRT$INTEGER2) 13 14 PRINT *,'SORTQQ after' 15 DO i = 1, 10 16 WRITE (*, 666) i, array (i) 17 END DO 18 19 666 FORMAT(1X, ' Array(',I2, '): ', I5) 20 END PROGRAM SORTQQ95 ENTRY POINTS Address Type Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 666 Label 19 9,16 ARRAY Local 4 I(2) 2 1 10 TGT 5,9,12,16 I Local 4 I(2) 2 scalar 8,9,15,16 IFPORT Module 3 3 LOC Func 12 scalar 12 SORTQQ Subr 12 12 SORTQQ95 Prog 1 SRT$INTEGER2 Param 12 I(4) 4 scalar 12 Page 2 Source Listing SORTQQ95 2024-02-07 09:52 Subprograms/Common Blocks FOR\SORTQQ95.F90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References SORTQQ95 Prog 1 COMPILER: Intel(R) Fortran 24.0-1238 SORTQQ95.EXEyintel Fortran CompilerzŽÀsŒ‹‰Ê SORTQQ befor Array( 1): 143 Array( 2): 99 Array( 3): 612 Array( 4): 61 Array( 5): 712 Array( 6): 9112 Array( 7): 6 Array( 8): 555 Array( 9): 2223 Array(10): 67 SORTQQ after Array( 1): 6 Array( 2): 61 Array( 3): 67 Array( 4): 99 Array( 5): 143 Array( 6): 555 Array( 7): 612 Array( 8): 712 Array( 9): 2223 Array(10): 9112