Il Linguaggio Fortran 90/95

398 Puntatori
INTERFACE OPERATOR(==)
MODULE PROCEDURE equal_to
END INTERFACE
CONTAINS
LOGICAL FUNCTION greater_than(op1,op2)
TYPE(node),intent(in) :: op1, op2
IF (op1%int > op2%int) THEN
greater_than = .TRUE.
ELSE
greater_than = .FALSE.
END IF
END FUNCTION greater_than
LOGICAL FUNCTION less_than(op1,op2)
TYPE(node), INTENT(IN) :: op1, op2
IF (op1%int < op2%int) THEN
less_than = .TRUE.
ELSE
less_than = .false.
END IF
END FUNCTION less_than
LOGICAL FUNCTION equal_to(op1,op2)
TYPE(node), INTENT(IN) :: op1, op2
IF (op1%int == op2%int) THEN
equal_to = .TRUE.
ELSE
equal_to = .FALSE.
END IF
END FUNCTION equal_to
END MODULE binary_tree
!
PROGRAM tree
! Crea un albero binario di 100 interi random
! --- Sezione dichiarativa ---
USE binary_tree
IMPLICIT NONE
INTEGER,PARAMETER :: dim=100
REAL,DIMENSION(dim) :: random
INTEGER,DIMENSION(dim) :: input
INTEGER :: i