diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-11 08:52:12 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-11 08:52:12 -0400 |
commit | e9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6 (patch) | |
tree | 2e816aa6e65ece4ac5fee93ad70b0e2941b35bee /favorites.f90 | |
parent | 7b8f2ab32f66d8f3ce48a5e9685c05b25d31f2bb (diff) | |
download | LR-87-e9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6.tar.gz LR-87-e9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6.zip |
Favorites and internal pages are now working. Added symbols to buttons in Windows based on new AppGraphics release.
Diffstat (limited to 'favorites.f90')
-rw-r--r-- | favorites.f90 | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/favorites.f90 b/favorites.f90 index a1e0a6b..90cd2d1 100644 --- a/favorites.f90 +++ b/favorites.f90 @@ -60,9 +60,9 @@ contains res = 1 do i = 2, size(array) - if(mymin .and. string_compare(array(res), array(i)) < 0) then + if(mymin .and. string_compare(array(res), array(i)) > 0) then res = i - else if((.not. mymin) .and. string_compare(array(res), array(i)) > 0) then + else if((.not. mymin) .and. string_compare(array(res), array(i)) < 0) then res = i end if end do @@ -230,17 +230,25 @@ contains end subroutine write_favorite - subroutine write_favorites(unit_number, faves) + subroutine write_favorites(unit_number, faves, skip_heading) implicit none integer, intent(in)::unit_number type(favorite), dimension(:), intent(in)::faves + logical, intent(in), optional::skip_heading integer::i character(8)::n_text - write(unit_number, '(A11)') "# Favorites" - write(unit_number, *) + if(present(skip_heading)) then + if(.not. skip_heading) then + write(unit_number, '(A11)') "# Favorites" + write(unit_number, *) + end if + else + write(unit_number, '(A11)') "# Favorites" + write(unit_number, *) + end if write(n_text, '(I8)') size(faves) |