Page 1 Source Listing MANDEL2003 2024-02-16 19:47 FOR\MANDEL2003.F90 1 PROGRAM MANDEL2003 2 3 IMPLICIT NONE 4 5 INTEGER, PARAMETER :: maxiter = 90, nx = 61, ny = 31 6 REAL , PARAMETER :: x0 = -2.0, x1 = 2.0, y0 = -2.0, y1 = 2.0 7 CHARACTER(LEN = 10), PARAMETER :: TEXT1 = '-*o0O.@+# ' 8 CHARACTER(LEN = 10), PARAMETER :: TEXT2 = ' *' 9 CHARACTER(LEN = 10), PARAMETER :: TEXT3 = '.........+' 10 INTEGER :: ix, iy, iter, mandelbrot(nx, ny) = 0, m(nx) 11 REAL, ALLOCATABLE :: x(:), y(:) 12 COMPLEX :: c(nx, ny), z(nx, ny) = (0.0, 0.0) 13 14 x = [( (x1 - x0) / (nx - 1) * (ix - 1) + x0, ix = 1, nx )] 15 y = [( (y1 - y0) / (ny - 1) * (iy - 1) + y0, iy = 1, ny )] 16 17 FORALL (ix = 1:nx, iy = 1:ny) c(ix, iy) = CMPLX(x(ix), y(iy)) 18 19 DO iter = 0, maxiter 20 WHERE (ABS(z) <= 2.0) 21 z = z * z + c 22 mandelbrot = mandelbrot + 1 23 END WHERE 24 END DO 25 26 DO iy = 1, ny 27 m = (mandelbrot(:, iy) + 8) / 10 + 1 28 WRITE(*, '(61A1)') (TEXT1(m(ix):m(ix)), ix = 1, nx) 29 END DO 30 31 DO iy = 1, ny 32 m = (mandelbrot(:, iy) + 8) / 10 + 1 33 WRITE(*, '(61A1)') (TEXT2(m(ix):m(ix)), ix = 1, nx) 34 END DO 35 36 DO iy = 1, ny 37 m = (mandelbrot(:, iy) + 8) / 10 + 1 38 WRITE(*, '(61A1)') (TEXT3(m(ix):m(ix)), ix = 1, nx) 39 END DO 40 41 STOP 42 END PROGRAM MANDEL2003 Page 2 Source Listing MANDEL2003 2024-02-16 19:47 Entry Points FOR\MANDEL2003.F90 ENTRY POINTS Address Type Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ABS Func 20 scalar 20 C Local 12 C(8) 8 2 1891 17,21 CMPLX Func 17 scalar 17 ITER Local 10 I(4) 4 scalar 19 IX Local 10 I(4) 4 scalar 28,33,38 IX Local 17 I(4) 4 scalar 17 IY Local 10 I(4) 4 scalar 26,27,31,32,36,37 IY Local 17 I(4) 4 scalar 17 M Local 10 I(4) 4 1 61 27,28,32,33,37,38 MANDEL2003 Prog 1 MANDELBROT Local 10 I(4) 4 2 1891 10,22,27,32,37 MAXITER Param 5 I(4) 4 scalar 19 NX Param 5 I(4) 4 scalar 10,12,14,17,28,33,38 NY Param 5 I(4) 4 scalar 10,12,15,17,26,31,36 TEXT1 Param 7 CHAR 10 scalar 28 TEXT2 Param 8 CHAR 10 scalar 33 TEXT3 Param 9 CHAR 10 scalar 38 X Local 11 R(4) 4 1 1 ALC 14,17 X0 Param 6 R(4) 4 scalar 14 X1 Param 6 R(4) 4 scalar 14 Y Local 11 R(4) 4 1 1 ALC 15,17 Y0 Param 6 R(4) 4 scalar 15 Y1 Param 6 R(4) 4 scalar 15 Z Local 12 C(8) 8 2 1891 12,20,21 Page 3 Source Listing MANDEL2003 2024-02-16 19:47 Subprograms/Common Blocks FOR\MANDEL2003.F90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References MANDEL2003 Prog 1 COMPILER: Intel(R) Fortran 24.0-1238 MANDEL2003.EXEyintel Fortran CompilerzŽÀsŒ‹‰Ê ------------------------------*------------------------------ --------------------*********************-------------------- ----------------*****************************---------------- ------------*************************************------------ ----------*****************************************---------- --------*********************************************-------- ------*************************************************------ -----***************************************************----- ----************************o****************************---- ---************************ o***************************--- --*******************00*ooo0 +o@+**************************-- --******************** @***********************-- -*******************o ************************- -***********o O 0O*o o***********************- -********o*o .***********************- 0************************** -********o*o .***********************- -***********o O 0O*o o***********************- -*******************o ************************- --******************** @***********************-- --*******************00*ooo0 +o@@**************************-- ---************************ o***************************--- ----************************o****************************---- -----***************************************************----- ------************************************************------- --------*********************************************-------- ----------*****************************************---------- ------------************************************------------- ----------------*****************************---------------- --------------------*********************-------------------- ------------------------------*------------------------------ *** * ************* *************** * * **************** ************************ ********************************** ************************ * * **************** *************** ************* * *** ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ...........................+++............................... ............................+................................ ......................+++++++++++++.......................... .....................+++++++++++++++......................... .............+.+....++++++++++++++++......................... ............++++++++++++++++++++++++......................... ++++++++++++++++++++++++++++++++++........................... ............++++++++++++++++++++++++......................... .............+.+....++++++++++++++++......................... .....................+++++++++++++++......................... ......................+++++++++++++.......................... ............................+................................ ...........................+++............................... ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. ............................................................. .............................................................