life.f90
bash: /opt/openfoam231/etc/bashrc: Aucun fichier ou dossier de ce type
moi@ordinateur:~$ sudo apt-get life
[sudo] Mot de passe de moi :
E: L'opération life n'est pas valable
moi@ordinateur:~$ sudo apt-get update
E: Ligne 1 mal formée dans la liste des sources /etc/apt/sources.list.d/life.list (type)
moi@ordinateur:~$ rm /etc/apt/sources.list.d/life.*
moi@ordinateur:~$ ls
1_1.f90 1_2.o no_title.o parameter.o
1_1.o Makefile parameter.f90
1_2.f90 no_title.f90 parameter.mod
moi@ordinateur:~$
moi@ordinateur:~$
moi@ordinateur:~$ vim haha.f90
___________________________________
program life
use parameter
implicit none
logical :: heartbeat = .TRUE.
! Life = .TRUE. / Death = .FALSE.
integer, dimension(1:ndim) :: lifespan
real*8 :: time=0.
integer :: i,stop_loop,dt=1
lifespan(1)=0
do 60 i=1,ndim-1
call heart(heartbeat,i)
if (hearbeat .eqv. .TRUE.) then
stop_loop = 0
print(*,*) "coeur bat"
else
stop_loop=1
print(*,*) "mort"
exit
end if
time=time+float(dt)
lifespan(i+1)=int(time)
60 continue
return
end
~
~
~
~
~
~
"haha" [New File]
___________________________________
moi@ordinateur:~$ ls
1_1.f90 1_2.o no_title.f90 parameter.mod
1_1.o haha.f90 no_title.o parameter.o
1_2.f90 Makefile parameter.f90
moi@ordinateur:~$ make clean
moi@ordinateur:~$ make
f95 -c -fdefault-real-8 -C -fbounds-check parameter.f90
f95 -c -fdefault-real-8 -C -fbounds-check 1_1.f90
f95 -c -fdefault-real-8 -C -fbounds-check 1_2.f90
f95 -c -fdefault-real-8 -C -fbounds-check haha.f90
f95 -c -fdefault-real-8 -C -fbounds-check no_title.f90
f95 parameter.o 1_1.o 1_2.o haha.o no_title.o -o life.exe
moi@ordinateur:~$ ./life.exe
[[A]
^C
moi@ordinateur:~$
moi@ordinateur:~$
moi@ordinateur:~$ exit
2 Commentaires
Commentaires recommandés