# GETCWD

Portability Function: Returns the path of the current working directory.

## Module

USE IFPORT

result = GETCWD (dirname)

dirname | (Output) Character *(*). Name of the current working directory path, including drive letter.

## Results

The result type is INTEGER(4). The result is zero if successful; otherwise, an error code.

## Example

        USE IFPORT
        character*30 dirname
    !   variable dirname must be long enough to hold entire string
        integer(4) istat
        ISTAT = GETCWD (dirname)
        IF (ISTAT == 0) write *, 'Current directory is ',dirname

Parent topic: G

## See Also

GETDRIVEDIRQQ