demo_system_getenv.f90 Source File


Contents


Source Code

     program demo_system_getenv
     use M_system, only : system_getenv
     use M_system, only : ge=>system_getenv
     implicit none
     character(len=:),allocatable :: TMPDIR

        write(*,'("USER     : ",a)')system_getenv('USER')
        write(*,'("LOGNAME  : ",a)')system_getenv('LOGNAME')
        write(*,'("USERNAME : ",a)')system_getenv('USERNAME')

        ! look first for USER then LOGNAME then USERNAME
        write(*, *)ge('USER', ge('LOGNAME', ge('USERNAME', 'UNKNOWN')))

        TMPDIR= ge('TMPDIR', ge('TMP', ge('TEMPDIR', ge('TEMP', '/tmp'))))
        write(*,*)'favorite scratch area is ',TMPDIR

    end program demo_system_getenv