sp1.f90
Source original
SUBROUTINE sp1
sp1 is not called.
sp1 calls
sp1 uses
sp1 does not include anything.
(n)
USE essai
INTEGER, INTENT(in) :: n
n=essai_symemtric(a)
PRINT*, 'This is the definition' ! But this is a real one
CONTAINS
SUBROUTINE sp2
sp2 is not called.
sp2 does not call anything.
sp2 does not use anything.
sp2 does not include anything.
(n)
INTEGER, INTENT(in) :: n
PRINT*, 'This is the definition' ! But this is a real one
sp1.f90->sp2:sp1.f90:7->10
END SUBROUTINE sp2
END SUBROUTINE sp1
SUBROUTINE private_subroutine
private_subroutine is not called.
private_subroutine calls
private_subroutine uses
private_subroutine does not include anything.
(n)
USE essai, essai_symemtric => symmetric
INTEGER, INTENT(in) :: n
n=symmetric(a)
PRINT*, 'This is not a private subroutine',choix(a) ! But this is a real one
PRINT*, 'this routine is NOT called by program f90'
END SUBROUTINE private_subroutine
SUBROUTINE another_call
another_call is not called.
another_call calls
another_call uses
another_call includes
(n)
sp1.f90->another_call:sp1.f90:19->20
USE essai, &
ONLY: essai_symemtric => symmetric
USE modaff
INCLUDE affiche.h
INTEGER, INTENT(in) :: n
REAL :: r = 0.1
n=symmetric(a)
n=symmetric(a)
PRINT*, 'This is not a private subroutine' ! But this is a real one
PRINT*, 'this routine is NOT called by program f90'
sp1.f90->another_call:sp1.f90:19->30
CALL affiche(r)
CALL affiche(r)
CALL fafiche(r)
END SUBROUTINE another_call