ints2str Subroutine

public subroutine ints2str(ints, string, ierr)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ints(:)
character(len=:), intent(out), allocatable :: string
integer, intent(out) :: ierr

Contents

Variables

i

Source Code

ints2str

Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

subroutine ints2str(ints,string,ierr)

! ident_10="@(#) M_matrix ints2str(3f) convert lala integers to a character variable"

! temporary procedure while writing ASCII-based upgrade

integer,intent(in)                       :: ints(:)
character(len=:),allocatable,intent(out) :: string
integer,intent(out)                      :: ierr
integer                                  :: i

   ierr=0
   if(allocated(string))deallocate(string)
   allocate(character(len=size(ints)) :: string)
   string(:)=' '
   do i=1,size(ints)
      if( ints(i).lt.G_CHARSET_SIZE .and. ints(i).ge.0 )then
         string(i:i)=achar(ints(i))
      else
         call journal('sc',' function name contains unacceptable characters:',ints(i))
         ierr=ierr+1
      endif
   enddo

end subroutine ints2str