くだすれFORTRAN（超初心者用）

くだすれFORTRAN（超初心者用） at TECH

367:1/2
06/06/02 02:31:16
>>364　Fortran90で難しく書いてみた。が、少しイモくさいｗ

MODULE mod_integ
IMPLICIT NONE
REAL :: pi
CONTAINS
REAL FUNCTION trapez(n, xmin, xmax)
IMPLICIT NONE
INTEGER, INTENT(IN) :: n
REAL , INTENT(IN) :: xmin, xmax
INTEGER :: i
REAL :: h, x
h = (xmax - xmin) / n
trapez = 0.0
DO i = 1, n
x = xmin + (i - 1) * h
trapez = trapez + sub_trapez(x, h)
END DO
RETURN
END FUNCTION trapez

次ページ

続きを表示

1を表示