Aller au contenu

"..."

  • billets
    26
  • commentaires
    60
  • vues
    130 765

life.f90


Eventuellement

1 057 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                

2 Commentaires


Commentaires recommandés

Invité
Ajouter un commentaire…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement
×