Fichiers | Programmes | Routines | Fonctions | Includes | Search | Modules |
---|
Source original
PROGRAM f90f90 is not called.
f90 calls
f90 uses
f90 does not include anything.
IMPLICIT NONE
USE type_point
INTERFACE duchemu
SUBROUTINE sp1(n)
INTEGER, INTENT(in) :: n
INTERFACE duche
SUBROUTINE sp2(n)
INTEGER, INTENT(in) :: n
END SUBROUTINE sp2
END INTERFACE
END SUBROUTINE sp1
END INTERFACE
TYPE (point) :: c, a = point(0.,1.), b = point(1.,2.)
INTEGER :: n = 2
c = a + b ; PRINT*,'c=',c
CALL affint(n)
CALL private_subroutine
CALL duchemu
PRINT*,'choix=',choix(1,2,&
! le choix est aisé
! But this is a real one