Last modified 9 /5 /2000.
Source original

SUBROUTINE sp1
sp1 is not called.
sp1 calls
sp1 uses
sp1 does not include anything.
USE essai
INTEGER, INTENT(in) :: n
n=essai_symemtric(a)
PRINT*, 'This is the definition'
CONTAINS
SUBROUTINE sp2
sp2 is not called.
sp2 does not call anything.
sp2 does not use anything.
sp2 does not include anything.
INTEGER, INTENT(in) :: n
PRINT*, 'This is the definition'
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.
USE essai, essai_symemtric => symmetric
INTEGER, INTENT(in) :: n
n=symmetric(a)
PRINT*, 'This is not a private subroutine',choix(a)
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
sp1.f90->another_call->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'
PRINT*, 'this routine is NOT called by program f90'
sp1.f90->another_call->30
CALL affiche(r)
CALL affiche(r)
CALL fafiche(r)
END SUBROUTINE another_call
