demo_system_clearenv.f90 Source File


Contents


Source Code

       program demo_system_clearenv
       use M_system, only : system_clearenv
       implicit none
       ! environment before clearing
       call execute_command_line('env|wc')
       ! environment after clearing (not necessarily blank!)
       call system_clearenv()
       call execute_command_line('env')
       end program demo_system_clearenv