str2ade Function

public function str2ade(string) result(vec)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string

Return Value integer, allocatable, (:)


Contents

Variables

i

Source Code

str2ade

Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

function str2ade(string) result(vec)

! ident_7="@(#) M_matrix mat_str2buf(3fp) convert CHARACTER TO ADE array vector"

character(len=*),intent(in)  :: string
integer,allocatable          :: vec(:)
integer                      :: i
   allocate(vec(len(string)))
   do i=1,len(string)
      vec(i)=iachar(string(i:i))
   enddo
end function str2ade