Create a module and define a structure $"$t$\_$fraction" with integer type members

numerator and denominator. $($File name: $"$p$15\_$mod$\_$fraction.f$90")$

Create the following calculation function of $t$ fraction type in the module.

$-$Addition functions : frac$\_$plus$\_$frac, frac$\_$plus$\_$int, int$\_$plus$\_$frac

$-$Subtraction functions : frac$\_$minus$\_$frac, frac$\_$minus$\_$int, int$\_$minus$\_$frac

$-$Multiplication functions : frac$\_$mult$\_$frac, frac$\_$mult$\_$int, int$\_$mult$\_$frac

$-$Division functions : frac$\_$divi$\_$frac, frac$\_$divi$\_$int, int$\_$divi$\_$frac

Also define the "interface operator" statement.

Also, create a function "fracset" that sets an integer to a variable of $t$ fraction type,

and a subroutine "dispfrac" to display.

In addition, add a subroutine "euclidean" that performs Eucledean algorithm, and use

it in each function as necessary.