tryit Subroutine

subroutine tryit(string)

Uses

Arguments

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

Contents

Variables

Source Code

tryit

Variables

Type Visibility Attributes Name Initial
character(len=255), public, pointer :: list(:)

Source Code

     subroutine tryit(string)
        use M_system, only : fileglob
        character(len=255),pointer :: list(:)
        character(len=*) :: string
        call fileglob(string, list)
        write(*,*)'Files:',size(list)
        write(*,'(a)')(trim(list(i)),i=1,size(list))
        deallocate(list)
     end subroutine tryit