diff --git a/src/colormaps_info.f90 b/src/colormaps_info.f90 index 004421d..7ad521e 100644 --- a/src/colormaps_info.f90 +++ b/src/colormaps_info.f90 @@ -21,7 +21,7 @@ ! SOFTWARE. !------------------------------------------------------------------------------- ! Contributed by gha3mi: 2023-11-05 -! Last modification: gha3mi 2024-01-06, vmagnin 2024-02-16 +! Last modification: gha3mi 2024-02-16, vmagnin 2024-02-16 !------------------------------------------------------------------------------- module forcolormap_info @@ -142,8 +142,8 @@ impure subroutine write_info(this, verbose, file_name) 'a,','a', len_trim(this%colorbar),',',23-len_trim(this%colorbar)+2,'x',',',& 'a,','a', len_trim(this%package),',',25-len_trim(this%package)+2,'x',',',& 'a,','a', len_trim(this%author),',',15-len_trim(this%author)+2,'x',',',& - 'a,','a', len_trim(this%license),',',18-len_trim(this%license)+2,'x',',',& - 'a,','a', len_trim(this%url),',',42-len_trim(this%url)+2,'x',',a',& + 'a,','a', len_trim(this%license),',',33-len_trim(this%license)+2,'x',',',& + 'a,','a', max(1, len_trim(this%url)),',',42-max(1, len_trim(this%url))+2,'x',',a',& ')' open (newunit=nunit, file=trim(file_name), access='append', status='unknown', action='write') write (nunit,format_table)& @@ -181,8 +181,8 @@ impure subroutine write_info(this, verbose, file_name) 'a', len_trim(this%colorbar),',',23-len_trim(this%colorbar)+2,'x',',',& 'a', len_trim(this%package),',',25-len_trim(this%package)+2,'x',',',& 'a', len_trim(this%author),',',15-len_trim(this%author)+2,'x',',',& - 'a', len_trim(this%license),',',18-len_trim(this%license)+2,'x',',',& - 'a', len_trim(this%url),',',42-len_trim(this%url)+2,'x',& + 'a', len_trim(this%license),',',33-len_trim(this%license)+2,'x',',',& + 'a', max(1, len_trim(this%url)),',',42-max(1, len_trim(this%url))+2,'x',& ')' print (format_table),& this%name,& @@ -318,16 +318,17 @@ impure subroutine write(this, verbose, name, family, gradient, palette, author, if (present(file_name)) then open(newunit=nunit, file=trim(file_name), access='append', status='unknown', action='write') write(nunit,'(a)')'' ! Print empty line - write(nunit,'(g0,8x,g0,6x,g0,12x,g0,7x,g0,1x,g0,17x,g0,20x,g0,11x,g0,13x,g0)') & + write(nunit,'(g0,8x,g0,6x,g0,12x,g0,7x,g0,1x,g0,17x,g0,20x,g0,11x,g0,28x,g0)') & '|Name', '|Family', '|Gradient', '|Palette', '|Levels', '|Colorbar', '|Package', '|Author', '|Licence', '|URL|' write(nunit,'(a)') '|---|---|---|---|---|---|---|---|---|---|' close(nunit) else print*,'' ! Print empty line - print '(g0,8x,g0,6x,g0,12x,g0,7x,g0,1x,g0,17x,g0,20x,g0,11x,g0,13x,g0)', & + print '(g0,8x,g0,6x,g0,12x,g0,7x,g0,1x,g0,17x,g0,20x,g0,11x,g0,28x,g0)', & 'Name', 'Family', 'Gradient', 'Palette', 'Levels', 'Colorbar', 'Package', 'Author', 'Licence', 'URL' - print'(a)', '**********************************************************************************************& - &*******************************************************************************************' + print'(a)', '*****************************************************************************************& + &*****************************************************************************************************& + &**********************' end if end if