subrprog.f90
Source original
SUBROUTINE f90subr
f90subr is not called.
f90subr does not call anything.
f90subr uses
f90subr does not include anything.
IMPLICIT NONE
USE type_point
INTERFACE SUBROUTINE sp1(n)
INTEGER, INTENT(in) :: n
INTERFACE SUBROUTINE sp2(n)
INTEGER, INTENT(in) :: n
END SUBROUTINE sp2
END INTERFACE
subrprog.f90->f90subr:subrprog.f90:1->10
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 private_subroutine
PRINT*,'choix=',choix(1,2,& ! le choix est aisé
3)
CONTAINS
SUBROUTINE private_subroutine
private_subroutine is not called.
private_subroutine does not call anything.
private_subroutine does not use anything.
private_subroutine does not include anything.
subrprog.f90->private_subroutine:subrprog.f90:19->20
PRINT*, 'This is not a comment' ! But this is a real one
print*, 'Voici ',choix(a),' ici'
END SUBROUTINE private_subroutine
FUNCTION choix
choix is not called.
choix does not call anything.
choix does not use anything.
choix does not include anything.
(a, &
b, &
c)
INTEGER INTENT (in) :: a, b, c
INTEGER :: choix
choix = b
END FUNCTION choix
subrprog.f90->f90subr:subrprog.f90:1->30
END SUBROUTINE f90subr