i2s Function

public function i2s(ivalue) result(outstr)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ivalue

Return Value character(len=:), allocatable


Contents

Source Code

i2s

Source Code

function i2s(ivalue) result(outstr)

! ident_61="@(#) M_strings i2s(3fp) private function returns string given integer value"

integer,intent(in)           :: ivalue                         ! input value to convert to a string
character(len=:),allocatable :: outstr                         ! output string to generate
character(len=80)            :: string
   write(string,'(g0)')ivalue
   outstr=trim(string)
end function i2s