• billets
    26
  • commentaires
    60
  • vues
    15 215

life.f90

Eventuellement

429 vues

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                


  • Like 1
   Alerter


2 Commentaires


Commentaires recommandés

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant