ade2str Function

public function ade2str(buf) result(string)

Arguments

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

Return Value character(len=:), allocatable


Contents

Variables

i

Source Code

ade2str

Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

function ade2str(buf) result(string)

! ident_8="@(#) M_matrix mat_str2buf(3fp) convert ADE array to CHARACTER"

character(len=:),allocatable :: string
integer,intent(in)           :: buf(:)
integer                      :: i
   string=repeat(' ',size(buf))
   do i=1,size(buf)
      if(buf(i).ge.0 .or. buf(i).lt.255)then
         string(i:i)=achar(buf(i))
      else
         call journal('sc','ADE2STR:string contains unacceptable characters, position=',i,'ADE=',buf(i))
      endif
   enddo
end function ade2str