!!- ! Author: Brian Tiffin ! Dedicated to the public domain ! ! Date: November 2016 ! Modified: 2016-11-15/21:43-0500 !!+ ! ! Fortran 90 form ! ! Compute the square of n, result in m subroutine squareto(n,m) m = n*n return end ! Compute the cube of n, return value integer function cube(n) cube = n*n*n return end