mat_buf2str Subroutine

public subroutine mat_buf2str(string, buf, lrecl)

Arguments

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

Contents

Variables

Source Code

mat_buf2str

Variables

Type Visibility Attributes Name Initial
integer, public :: i
integer, public :: ilen

Source Code

subroutine mat_buf2str(string,buf,lrecl)

! ident_9="@(#) M_matrix mat_buf2string(3fp) convert hollerith to string"

integer,intent(in)     :: lrecl
integer,intent(in)     :: buf(:)
character(len=*)       :: string
integer                :: i
integer                :: ilen
   string(:)=' '
   ilen=len(string)
   do i=1,min(lrecl,ilen,size(buf))
      string(i:i)=achar(buf(i))
   enddo
end subroutine mat_buf2str