strings.F90

Go to the documentation of this file.

!######################################tall#
!----------- strings --------------------
!########################################
module strings

  use f90_kind

  implicit none

  public


  interface operator(//)
     module procedure print_int_r
     module procedure print_int_l
  end interface

  interface operator(//)
     module procedure print_dble_r
     module procedure print_dble_l
  end interface

  interface operator(//)
     module procedure print_real_r
     module procedure print_real_l
  end interface

contains

  ! int right
  !----------
  function print_int_r(char, zahl ) result(string)

    character(len=*), intent(in) :: char
    integer(ikind) , intent(in) :: zahl
    character(len=len(char)+int(log10(dble(max(1,zahl))))+ &
         1-floor(sign(0.1d0,dble(zahl))))::string

    write(string,'(i0)')zahl
    string=char//trim(adjustl(string))

  end function print_int_r

  ! int left
  !---------
  function print_int_l(zahl, char ) result(string)
    character(len=*), intent(in) :: char
    integer(ikind) , intent(in) :: zahl
    character(len=len(char)+int(log10(dble(max(1,zahl))))+ &
         1-floor(sign(0.1d0,dble(zahl)))) :: string

    write(string,'(i0)')zahl
    string=trim(adjustl(string))//char
  end function print_int_l

  !dble right
  !----------
  function print_dble_r(char, zahl ) result(string)
    character(len=*), intent(in) :: char
    real(rkind) , intent(in) :: zahl
    character(len=len(char)+22)::string

    write(string,'(1p,e22.15)')zahl
    string=char//trim(adjustl(string))

  end function print_dble_r

  !dble left
  !----------
  function print_dble_l(zahl, char ) result(string)
    character(len=*), intent(in) :: char
    real(rkind) , intent(in) :: zahl
    character(len=len(char)+22)::string

    write(string,'(1p,e22.15)')zahl
    string=char//trim(adjustl(string))

  end function print_dble_l

  !real right
  !----------
  function print_real_r(char, zahl ) result(string)
    character(len=*), intent(in) :: char
    real , intent(in) :: zahl
    character(len=len(char)+12)::string

    write(string,'(1p,e12.6)')dble(zahl)
    string=char//trim(adjustl(string))

  end function print_real_r

  !real left
  !----------
  function print_real_l(zahl, char ) result(string)
    character(len=*), intent(in) :: char
    real , intent(in) :: zahl
    character(len=len(char)+12)::string

    write(string,'(1p,e12.6)')dble(zahl)
    string=char//trim(adjustl(string))

  end function print_real_l
end module strings