mkdir Subroutine

public subroutine mkdir(wkd, directory, sep, exit_status)

Subroutine that creates a directory

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: wkd
character(len=*), intent(in) :: directory
character(len=1), intent(in) :: sep
integer(kind=I4), intent(out) :: exit_status

Called by

proc~~mkdir~~CalledByGraph proc~mkdir mkdir proc~make_path make_path proc~make_path->proc~mkdir program~test_files test_files program~test_files->proc~mkdir program~test_files->proc~make_path

Source Code

   subroutine mkdir(wkd, directory, sep, exit_status)
   !! Subroutine that creates a directory
   implicit none
   character(len = *), intent(in ) :: wkd
   character(len = *), intent(in ) :: directory
   character(len = 1), intent(in ) :: sep
   integer(kind = I4), intent(out) :: exit_status

      character(len = 512) :: dir

      dir = trim(wkd) // sep // trim(directory)

      call execute_command_line("mkdir -p " // sep // dir, exitstat = exit_status)

   return
   endsubroutine mkdir