sysdep Module Reference

Functions/Subroutines
subroutine, public	abortprogram (message)
integer function, public	sysdepargcount ()
subroutine, public	sysdepargget (index, val)
subroutine, public	sysdepenvget (env, str)

Function/Subroutine Documentation

abortprogram()

subroutine, public sysdep::abortprogram

(

character(len=*), intent(in), optional

message

)

Definition at line 57 of file sysdep.f90.

References dc_types::stderr.

    use dc_types, only: stderr
    implicit none
    character(len=*), intent(in), optional :: message
    continue
    if (present(message)) write(stderr, *) trim(message)
    call dc_f_abort()

sysdepargcount()

integer function, public sysdep::sysdepargcount

(

)

Definition at line 66 of file sysdep.f90.

    implicit none
    sysdepargcount = command_argument_count()

sysdepargget()

subroutine, public sysdep::sysdepargget	(	integer, intent(in)	index,
		character(len = *), intent(out)	val
	)

Definition at line 71 of file sysdep.f90.

References sysdepargcount().

    implicit none
    integer,            intent(in)  :: index
    character(len = *), intent(out) :: val
    !
    integer:: idx
    integer:: argc
    continue
    argc = sysdepargcount()
    if (index < 0) then
      idx = argc + 1 + index
    else
      idx = index
    endif
    if (idx > argc) then
      val = ''
    else
      call get_command_argument(index, val)
    end if

Here is the call graph for this function:

sysdepenvget()

subroutine, public sysdep::sysdepenvget	(	character(len = *), intent(in)	env,
		character(len = *), intent(out)	str
	)

Definition at line 92 of file sysdep.f90.

    character(len = *), intent(in)  :: env
    character(len = *), intent(out) :: str
    call get_environment_variable(trim(adjustl(env)), str)