Fichiers | Programmes | Routines | Fonctions | Includes | Search | Modules |
---|
Source original
SUBROUTINE testtest is not called.
test calls
test does not use anything.
test does not include anything.
IMPLICIT NONE
TYPE (point) :: c, a = point(0.,1.), b = point(1.,2.)
INTEGER :: n = 2
c = a + b ; PRINT*,'c=',c
CALL private_subroutine(a)
PRINT*,'choix=',choix(1,2,&
! le choix est aisé
! But this is a real oneprint*, 'Voici ',choix(a),' ici'