Lab8mod - REAL FUNCTION i(a IMPLICIT NONE REAL INTENT(IN:a i=COS(a END FUNCTION i REAL FUNCTION j(a IMPLICIT NONE REAL INTENT(IN:a j=EXP(2*a END

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
MODULE lab8mod IMPLICIT NONE CONTAINS REAL FUNCTION f(a) IMPLICIT NONE REAL, INTENT(IN)::a f=a+1 END FUNCTION f REAL FUNCTION g(a) IMPLICIT NONE REAL, INTENT(IN)::a g=(a**2) + (2*a) + 1 END FUNCTION g REAL FUNCTION h(a) IMPLICIT NONE REAL, INTENT(IN)::a h=(a**3) + (3*a**2) + (3*a) + 1 END FUNCTION h
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: REAL FUNCTION i(a) IMPLICIT NONE REAL, INTENT(IN)::a i=COS(a) END FUNCTION i REAL FUNCTION j(a) IMPLICIT NONE REAL, INTENT(IN)::a j=EXP(2*a) END FUNCTION j REAL FUNCTION k(a) IMPLICIT NONE REAL, INTENT(IN)::a k=LOG(a) END FUNCTION k END MODULE...
View Full Document

This note was uploaded on 07/22/2010 for the course MAE 112 taught by Professor Freeh during the Spring '10 term at North Country Community College.

Ask a homework question - tutors are online