Files | Routines | Includes | Objects | Externals |
---|---|---|---|---|
JavaForm |
SUBROUTINE sp1(n) USE essaiINTEGER, INTENT(in) ::n n=essai_symemtric(a) PRINT*, 'Thisis the definition' ! But this is a real one CONTAINS SUBROUTINE sp2(n) INTEGER, INTENT(in) ::n PRINT*, 'Thisis the definition' ! But this is a real one END SUBROUTINE sp2 END SUBROUTINE sp1 SUBROUTINE private_subroutinesp1.f90->10 (n) USE essai, essai_symemtric => symmetric INTEGER, INTENT(in) :: n n=symmetric(a) PRINT*, 'Thisis 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) USE essai, & ONLY: essai_symemtric => symmetric USE modaff INCLUDE "affiche.h" INTEGER, INTENT(in) :: n REAL :: r = 0.1 n=symmetricsp1.f90->20 (a) n=symmetric(a) PRINT*, 'Thisis not a private subroutine' ! But this is a real one PRINT*, 'this routine is NOT called by program f90'CALL affichesp1.f90->30 (r) CALL affiche(r) CALL fafiche(r) END SUBROUTINE another_call
Code F90, using FtagsHTML-0.517 by cessenat, file sp1.f90 of 26/5/2001.