Fichiers | Programmes | Routines | Fonctions | Includes | Search | Modules |
---|
Source original
MODULE type_pointtype_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_pointadd_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
TYPE (point) :: add_point
add_point = point(p1%x+p2%x,p1%y+p2%y)
END FUNCTION add_point
END MODULE type_point