tö
Grünschnabel
Dabei seit: 26.06.2016
Beiträge: 1
 |
|
Meine Frage:
Hallo, ich weiß nicht, ob hier der Richtige Platz ist um meine Frage zu stellen.
Ich Programmiere mit Fortran. Ich soll die Monte Carlo Integration Programmieren.
Beim Compleieren wird mir aber immer gesagt,
dass Moduldatei »functions.mod« kann bei (1) nicht zum Lesen geöffnet werden kann...
Ich habe keine Ahnung wie ich das ändern kann.
Über Hilfe wäre ich sehr froh!
Meine Ideen:
Mein Programm:
MODULE integrate
CONTAINS
FUNCTION mc_int (n, dim) ! N anzahl Dim
REAL :: mc_int, sum, rot
REAL, ALLOCATABLE :: z(
!Arry erstellen
INTEGER :: n, i, j, dim
ALLOCATE (z(dim)) !Arrygröße wird festgelegt
rot=0
mc_int=0
DO i=1, n
sum=0
DO j=0, dim-1
CALL RANDOM_NUMBER (z(j))
sum = sum + z(j)*z(j)
END DO !sum = x1**2 + x2**2.... +xdim**2
IF (sum< 1) rot = rot+1.0
END DO
mc_int= (rot/(n+0.0)/(2**dim))
END FUNCTION ! mc_int
END MODULE integrate
PROGRAM mc
USE integrate
USE functions
IMPLICIT NONE
REAL :: a, b
INTEGER :: n
READ (*,*) n, dim
WRITE (*,*) mc_int (f1,0.,1.,n,1.),mc_int(f2,0.,1.,n,exp(1.0))
END PROGRAM ! mc
|
|
