point.f90

Fichiers Programmes Routines Fonctions Includes Search Modules

Source original

MODULE type_point
type_point is used by


type_point does not use anything.
type_point defines private routines
type_point does not include anything.

  TYPE point
     REAL :: x,y
  END TYPE point
  INTERFACE OPERATOR (+)
     MODULE PROCEDURE add_point
  END INTERFACE
  FUNCTION add_point
add_point is not called.
add_point does not call anything.
add_point does not use anything.
add_point does not include anything.
(p1, p2)
    TYPE (point), INTENT (in) :: p1, p2
point.f90->add_point:point.f90:8->10

    TYPE (point) :: add_point
    add_point = point(p1%x+p2%x,p1%y+p2%y)
  END FUNCTION add_point
END MODULE type_point