sp1.f90

Last modified 26/5/2001.

Files Routines Includes Objects Externals
JavaForm
View source file

SUBROUTINE sp1(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(n)
    INTEGER, INTENT(in) :: n
    PRINT*, 'This  is the definition' ! But this is a real one
sp1.f90->10
END SUBROUTINE sp2 END SUBROUTINE sp1 SUBROUTINE private_subroutine(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(n)
sp1.f90->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->30
CALL affiche(r) CALL affiche(r) CALL fafiche(r) END SUBROUTINE another_call


ftagshtml's logo
Code F90, using FtagsHTML-0.517 by cessenat, file sp1.f90 of 26/5/2001.