The new Release 20.03 is out! You can download binaries for Windows and many major Linux distros here .
||Fatal Error: Can't open module file 'D:\andrea\università\uiversitàcoseimportanti\seminarioFortran\Lezione6\lez_6_es2.os_output_dir/dati_condivisi.mod0' for writing at (1): No such file or directory|||=== Build finished: 1 errors, 0 warnings (0 minutes, 0 seconds) ===|
MODULE dati_condivisi implicit none integer,parameter :: N=1000 integer :: j ,nvals, i real, dimension (N) :: valu real somma, media,x, dev END MODULE dati_condivisi program lez_6_es2 USE dati_condivisi open(unit=1,file='lista_dati.txt',status='old',action='read',iostat=j) i=1 if(j==0) then do read(1,*,iostat=j) valu(i) if(j /=0) exit write(*,*)valu(i),i i=i+1 end do end if CALL calcola_media1 write(*,*)'la media vale', media CALL calcola_deviazione1 write(*,*)'la deviazione standard',dev stop end program lez_6_es2 SUBROUTINE calcola_media1 somma=0 USE dati_condivisi i=1 if(j==0) then do read(1,*,iostat=j) valu(i) if(j /=0) exit write(*,*)valu(i),i somma=somma+valu(i) i=i+1 end do media=somma/(i -1)!calcolo della media END SUBROUTINE calcola_media1 SUBROUTINE calcola_deviazione1 USE dati_condivisi do j=1,(i-1),1 x=x+(valu(j)-media)**2 !calcolo lo scarto quadratico medio end do dev=(x/(i -1))**0.5 ! END SUBROUTINE calcola_deviazione1