! This is a basic starting shell for your programs MODULE const INTEGER, PARAMETER :: dp = KIND(1.0d0), sp = KIND(1.0e0) REAL(KIND=dp), PARAMETER :: dpi = 3.141592653589793d0 END MODULE const ! PROGRAM prog USE const IMPLICIT NONE ! ! Tabulate y = EXP(x) on [a,b] given n INTEGER :: n,i REAL(kind=dp) :: a,b,x,y,h ! After all variable declarations, you can start your executable ! statements here n = 20 a = -1 b = 1 h = (b-a)/n x = a y = EXP(x) WRITE(*,*) x,y DO i = 2,n+1 x = x + h y = EXP(x) WRITE(*,*) x,y ENDDO END PROGRAM prog