demo_system_utime.f90 Source File


Contents

Source Code


Source Code

        program demo_system_utime
        use M_system, only : system_utime, system_perror
        implicit none
        character(len=4096) :: pathname
        integer             :: times(2)
        integer             :: i
           do i=1,command_argument_count()
              call get_command_argument(i, pathname)
              if(.not.system_utime(pathname,times))then
                 call system_perror('*demo_system_utime*')
              endif
           enddo
        end program demo_system_utime