Chapitre 6. Programmation en R
257
22 e=a(m)
23 a(m -h +1)= e +1
24 do j =1 , m
25 combmat ((i -1) * m+j )= a(j)
26 end do
27 i=i +1
28 else
29 h=h +1
30 e=a( mp1 -h)
31 do 40 j =1 , h
32 a(m -h+j )= e+j
33 40 continue
34 do j =1 , m
35 combmat ((i -1) * m+j )= a(j)
36 end do
37 i=i +1
38 endif
39 enddo
40 END SUBROUTINE combnF
Code de la fonction principale, disponible dans le fichier http://biostatisticien.
eu/springeR/main.f90 :
1 PROGRAM main
2 integer :: n ,m , Cnm ,j ,k
3 integer , allocatable , dimension (:) :: combmat
4 n =5
5 m =3
6 Cnm =10
7 k= Cnm * m
8 allocate ( combmat (k ))
9 CALL combnF ( combmat ,n ,m)
10 write ( * , * ) ( combmat (j) ,j =1 , k)
11 deallocate ( combmat )
12 end PROGRAM main
• Compilation et ex´ ecution de la fonction C/C++ ou Fortran
Afin de pouvoir utiliser le code C++ ou Fortran donn´ e plus haut, il vous faut le
compiler, c’est-` a-dire le transformer en un fichier dit ex´ ecutable. Pour cela, il
suffit d’ouvrir une fenˆ etre de commandes MS-DOS, par le menu D´ emarrer/Ex´ ecuter de Windows (ou en utilisant la combinaison de touches [WINDOWS+R]) et en
tapant l’instruction cmd suivie de la touche ENTR ´ EE. Dans cette fenˆ etre noire,
nous tapons les deux instructions qui suivent l’encadr´ e.