Ü k820309<;@ sortmod.f90SORTMOD#@  QUICKSORTTEXT%NINTQUICKSORTTEXT%FLOORQUICKSORTTEXT%COUNTQUICKSORTTEXT%IACHARQUICKSORTTEXT%ADJUSTLQUICKSORTTEXT%TRIMQUICKSORTTEXT%PRESENTQUICKSORTTEXT%SIZEQUICKSORTTEXT%REALTEXTPOSITIONRESTRICTEDNINTFLOORCOUNTIACHARADJUSTLTRIMPRESENTSIZEREAL,QP&D& A#@ REFSOR%SIZEXDONTSIZEDQ &#@ QUICKSORT%NINTQUICKSORT%PRESENTQUICKSORT%SIZEQUICKSORT%REALREALSINTSORDERORDERVALIDNMISSNINTPRESENTSIZEREALFQ &FQ &FQ &FQ &FA¸fn#fnÔQUICKSORTTEXT#â5QUICKSORTTEXT%NINT$6QUICKSORTTEXT%FLOOR$M6QUICKSORTTEXT%COUNT%ƒ7QUICKSORTTEXT%IACHAR&º8QUICKSORTTEXT%ADJUSTL#ò5QUICKSORTTEXT%TRIM&'8QUICKSORTTEXT%PRESENT#_5QUICKSORTTEXT%SIZE#”5QUICKSORTTEXT%REAL#ÉŒaQUICKSORTTEXT%TEXT'U„aQUICKSORTTEXT%POSITION)Ù8aQUICKSORTTEXT%RESTRICTEDRREFSORc5REFSOR%SIZE˜„aREFSOR%XDONT¡QUICKSORT½5QUICKSORT%NINT"ò8QUICKSORT%PRESENT*5QUICKSORT%SIZE_5QUICKSORT%REAL ”„aQUICKSORT%REALS„aQUICKSORT%INTS œ„aQUICKSORT%ORDER% „aQUICKSORT%ORDERVALID ¤ 8aQUICKSORT%NMISS