point.f90

Last modified 12 /2 /2001.

Files Programmes Routines Functions 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->10

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