June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/File-size/Fortran/file-size-1.f
+++ b/Task/File-size/Fortran/file-size-1.f
@ -0,0 +1,9 @@
+    use :: iso_fortran_env, only : FILE_STORAGE_SIZE
+    implicit none
+    character(len=*),parameter :: filename(*)=[character(len=256) :: 'input.txt', '/input.txt']
+    integer                    :: file_size, i
+    do i=1,size(filename)
+       INQUIRE(FILE=filename(i), SIZE=file_size)  ! return -1 if cannot determine file size
+       write(*,*)'size of file '//trim(filename(i))//' is ',file_size * FILE_STORAGE_SIZE /8,' bytes'
+    enddo
+    end
--- a/Task/File-size/Fortran/file-size-2.f
+++ b/Task/File-size/Fortran/file-size-2.f