subrprog.f90

Last modified 9 /5 /2000.

Files Programmes Routines Functions Includes Search Modules

Source original

SUBROUTINE f90subr

f90subr is not called.
f90subr does not call anything.
f90subr uses


f90subr does not include anything.

  IMPLICIT NONE
  USE type_point
  INTERFACE SUBROUTINE sp1(n)
       INTEGER, INTENT(in) :: n
       INTERFACE SUBROUTINE sp2(n)
            INTEGER, INTENT(in) :: n
          END SUBROUTINE sp2
       END INTERFACE
subrprog.f90->sp2->10

     END SUBROUTINE sp1
  END INTERFACE
  TYPE (point) :: c, a = point(0.,1.), b = point(1.,2.)
  INTEGER :: n = 2
  c = a + b ; PRINT*,'c=',c
  CALL private_subroutine
  PRINT*,'choix=',choix(1,2,&
! le choix est aisé
 

       3)
CONTAINS
  SUBROUTINE private_subroutine

private_subroutine is not called.
private_subroutine does not call anything.
private_subroutine does not use anything.
private_subroutine does not include anything.

subrprog.f90->private_subroutine->20

    PRINT*, 'This is not a comment'
 ! But this is a real one

    print*, 'Voici ',choix(a),' ici'
  END SUBROUTINE private_subroutine
  FUNCTION choix

choix is not called.
choix does not call anything.
choix does not use anything.
choix does not include anything.
(a, &
       b, &
       c)

    INTEGER INTENT (in) :: a, b, c
    INTEGER :: choix
    choix = b
  END FUNCTION choix
subrprog.f90->choix->30

END SUBROUTINE f90subr