Hi friends!
While i try to compil a simple program on Fortran 90 i get this error:
||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) ===|
I use windows 7, with codeblock (1.13.11) and GNU fortran gpl compiler.
It ever worked until i start use MODULE...then i get the error...
This is the code if it is usefull:
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
I attached the sceen...
Thanks for any help.
[attachment deleted by admin]