neci_getarg Subroutine

subroutine neci_getarg(i, str)

#ifdef NAGF95
    use f90_unix_env, only: getarg
#endif
    implicit none
    integer, intent(in) :: i
    character(len=*), intent(out) :: str

#if defined(__OPEN64__) || defined(__PATHSCALE__)
    integer(int32) :: j
#else
    integer :: j
#endif

#ifdef WARNING_WORKAROUND_
    j = i
#endif

#if defined NAGF95
    call getarg(i, str)
#elif defined(BLUEGENE_HACKS)
    call getarg(int(i, 4), str)
#elif defined(__OPEN64__) || defined(__PATHSCALE__)
    j = i
    call get_command_argument(j, str)
#else
    call get_command_argument(i, str)
#endif

end subroutine neci_getarg