sp1.f90

Last modified 9 /5 /2000.

Files Programmes Routines Functions Includes Search Modules

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->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->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->30

  CALL affiche(r)
  CALL affiche(r)
  CALL fafiche(r)
END SUBROUTINE another_call