test.f90

Fichiers Programmes Routines Fonctions Includes Search Modules

Source original

SUBROUTINE test
test is not called.
test calls


test does not use anything.
test does not include anything.

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

       3)
CONTAINS
test.f90->test:test.f90:1->10

  SUBROUTINE private_subroutine
private_subroutine is called by
private_subroutine calls
private_subroutine does not use anything.
private_subroutine does not include anything.
(a)
    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 called by
choix does not call anything.
choix does not use anything.
choix does not include anything.
(a, b)
    INTEGER :: choix
    choix = b
  END FUNCTION choix
END SUBROUTINE test