Page 1 Source Listing RDRST2D
2025-03-12 18:23 RDRST2D.f
1 SUBROUTINE RDRST2D(ARR,IM,JM,LUNIT,NREC0,NREC1,NF,PRE)
2 C
3 C------------------------------------------------------------
4 PARAMETER (KM=7)
5 C
6 INCLUDE "CTLBLK.comm"
7 C
22 REAL ARR(IM,JM),RDDUM(IM,JM)
23 C
24 INTEGER IDATx(3)
25 LOGICAL RUN,PRE
26 CHARACTER LABEL*32
27 C------------------------------------------------------------
28 C***
29 C*** ARR: ARRAY NEEDED FROM RESTRT FILE
30 C***
31 C*** RDDUM: DUMMY ARRAY USED TO READ THE RESTRT FILE
32 C***
33 C*** IM,JM: HORIZONTAL DIMENSIONS OF ARR AND RDDUM
34 C***
35 C*** KM: VERTICAL DIMENSION OF RDDUM; THIS IS THE MAXIMUM
36 C*** NUMBER OF 2-D ARRAYS THAT OCCUR ON ANY SINGLE
37 C*** RECORD OF THE FILE
38 C***
39 C*** LUNIT: UNIT NUMBER OF THE RESTRT FILE BEING READ
40 C***
41 C*** NREC0: THE RECORD AFTER WHICH THE POINTER IS SET
42 C*** WHEN THIS ROUTINE IS ENTERED
43 C***
44 C*** NREC1: THE NUMBER OF THE RECORD FROM WHICH
45 C*** WE WANT TO EXTRACT
46 C***
47 C*** NF: SINCE THERE MAY BE MORE THAN ONE 2-D ARRAY IN EACH
48 C*** RECORD, THIS IS THE NUMBER OF THE FIELD WE ACTUALLY
49 C*** WANT IN THE GIVEN RECORD; NF CANNOT EXCEED KM
50 C***
51 C*** PRE: A LOGICAL FLAG INDICATING WHETHER OR NOT TO READ
52 C*** THE EXTRA WORDS WHICH OCCUR ON SOME OF THE RECORDS
53 C*** PRECEDING THE 2-D ARRAYS
54 C***
55 C------------------------------------------------------------
56
57 print *, ' *** IN RDRST2D ***'
58 NDIF=NREC1-NREC0
59 C***
60 C*** GO TO START OF THE DESIRED RECORD
61 C***
62 IF(NDIF.GT.0)THEN
63 DO KOUNT=1,NDIF
64 READ(LUNIT)
65 ENDDO
66 ELSEIF(NDIF.LT.0)THEN
67 NDIF=-NDIF
68 DO KOUNT=1,NDIF
69 BACKSPACE LUNIT
70 ENDDO
71 ENDIF
Page 2 Source Listing RDRST2D
2025-03-12 18:23 RDRST2D.f
72 C***
73 C*** READ THE ARRAY FROM THIS RECORD
74 C***
75 IF(PRE)THEN
76 READ(LUNIT)RUN,IDATx,IHRST,NTSD,LABEL,
77 1 (((RDDUM(I,J),I=1,IM),J=1,JM),K=1,NF)
78 ELSE
79 READ(LUNIT)(((RDDUM(I,J),I=1,IM),J=1,JM),K=1,NF)
80 ENDIF
81 C
82 CALL EXTRACT(RDDUM, ARR )
83 c DO J=JSTA,JEND
84 c DO I=1,IM
85 c ARR(I,J)=RDDUM(I,J)
86 c ENDDO
87 c ENDDO
88 c
89 RETURN
90 END
ENTRY POINTS
Name
rdrst2d_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
ARR Dummy 1 R(4) 4 2 0 ARG,INOUT 82
CTLBLK Common 9 96 SAVE
EXTRACT Subr 82 82
I Local 77 I(4) 4 scalar 77,79
IDATX Local 24 I(4) 4 1 3 76
IM Dummy 1 I(4) 4 scalar ARG,INOUT 22,77,79
J Local 77 I(4) 4 scalar 77,79
JM Dummy 1 I(4) 4 scalar ARG,INOUT 22,77,79
K Local 77 I(4) 4 scalar 77,79
KM Param 4 I(4) 4 scalar
KOUNT Local 63 I(4) 4 scalar 63,68
LABEL Local 26 CHAR 32 scalar 76
LUNIT Dummy 1 I(4) 4 scalar ARG,INOUT 64,69,76,79
NDIF Local 58 I(4) 4 scalar 58,62,63,66,67,68
NF Dummy 1 I(4) 4 scalar ARG,INOUT 77,79
NREC0 Dummy 1 I(4) 4 scalar ARG,INOUT 58
NREC1 Dummy 1 I(4) 4 scalar ARG,INOUT 58
PARALLEL Common 16 8240
PRE Dummy 1 L(4) 4 scalar ARG,INOUT 75
RDDUM Local 22 R(4) 4 2 0 77,79,82
RDRST2D Subr 1
Page 3 Source Listing RDRST2D
2025-03-12 18:23 Symbol Table RDRST2D.f
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
DT R(4) 4 48 scalar COM
FIRST R(4) 4 24 scalar COM
ICNT I(4) 4 40 1 1024 COM
IDAT I(4) 4 8 1 3 COM
IDN I(4) 4 36 scalar COM
IDSP I(4) 4 4136 1 1024 COM
IDTAD I(4) 4 68 scalar COM
IHRST I(4) 4 20 scalar COM 76
IOUT I(4) 4 44 scalar COM
IUP I(4) 4 32 scalar COM
JEND I(4) 4 12 scalar COM
JEND_2U I(4) 4 8236 scalar COM
JEND_M I(4) 4 20 scalar COM
JEND_M2 I(4) 4 28 scalar COM
JSTA I(4) 4 8 scalar COM
JSTA_2L I(4) 4 8232 scalar COM
JSTA_M I(4) 4 16 scalar COM
JSTA_M2 I(4) 4 24 scalar COM
LIST I(4) 4 40 scalar COM
ME I(4) 4 4 scalar COM
NBC I(4) 4 36 scalar COM
NBOCO I(4) 4 72 scalar COM
NCP I(4) 4 80 scalar COM
NDDAMP I(4) 4 60 scalar COM
NFCST I(4) 4 32 scalar COM
NPHS I(4) 4 84 scalar COM
NPREC I(4) 4 64 scalar COM
NRADL I(4) 4 92 scalar COM
NRADS I(4) 4 88 scalar COM
NSHDE I(4) 4 76 scalar COM
NTSD I(4) 4 52 scalar COM 76
NTSTM I(4) 4 56 scalar COM
NUM_PROCS I(4) 4 0 scalar COM
RESTRT R(4) 4 28 scalar COM
RUN L(4) 4 4 scalar COM 76
SIGMA R(4) 4 0 scalar COM
Page 4 Source Listing RDRST2D
2025-03-12 18:23 Subprograms/Common Blocks RDRST2D.f
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
CTLBLK Common 9 96 SAVE
PARALLEL Common 16 8240
RDRST2D Subr 1
COMPILER OPTIONS BEING USED
-align noall -align nonone
-align nocommons -align nodcommons
-align noqcommons -align nozcommons
-align records -align nosequence
-align norec1byte -align norec2byte
-align norec4byte -align norec8byte
-align norec16byte -align norec32byte
-align norec64byte -align noarray8byte
-align noarray16byte -align noarray32byte
-align noarray64byte -align noarray128byte
-align noarray256byte -altparam
-assume accuracy_sensitive -assume nobscc
-assume nobuffered_io -assume nobuffered_stdout
-assume byterecl -assume nocontiguous_assumed_shape
-assume nocontiguous_pointer -assume nocc_omp
-assume nocstring -assume nodummy_aliases
-assume nofpe_summary -assume noieee_fpe_flags
-assume nominus0 -assume noold_boz
-assume old_complex_align -assume old_unit_star
-assume old_inquire_recl -assume old_ldout_format
-assume old_ldout_zero -assume noold_logical_assign
-assume noold_logical_ldio -assume old_maxminloc
-assume old_xor -assume noprotect_allocates
-assume protect_constants -assume noprotect_parens
-assume split_common -assume source_include
-assume nostd_intent_in -assume std_minus0_rounding
-assume nostd_mod_proc_name -assume std_value
-assume realloc_lhs -assume underscore
-assume no2underscores -assume norecursion
no -auto -auto_scalar
no -bintext -ccdefault default
-check noarg_temp_created -check noassume
-check nobounds -check nocontiguous
-check noformat -check nooutput_conversion
-check nooverflow -check nopointers
-check noshape -check nostack
-check nouninitialized -check noudio_iostat
-coarray-num-procs 0 no -coarray-config-file
-convert big_endian -cross_reference
-D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3
-D __unix__ -D __unix
-D __linux__ -D __linux
-D __gnu_linux__ -D unix
-D linux -D __ELF__
-D __x86_64 -D __x86_64__
Page 5 Source Listing RDRST2D
2025-03-12 18:23 RDRST2D.f
-D __amd64 -D __amd64__
-D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD
-D __MMX__ -D __SSE__
-D __SSE_MATH__ -D __SSE2__
-D __SSE2_MATH__ -D __SSE3__
-D __SSSE3__ -D __SSE4_1__
-D __SSE4_2__ -D __POPCNT__
-D __PCLMUL__ -D __AES__
-D __AVX__ -D __F16C__
-D __AVX_I__ -D __RDRND__
-D __FMA__ -D __FP_FAST_FMA
-D __FP_FAST_FMAF -D __BMI__
-D __LZCNT__ -D __AVX2__
-D __haswell -D __haswell__
-D __tune_haswell__ -D __core_avx2
-D __core_avx2__ -D __tune_core_avx2__
-D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET
-double_size 64 no -d_lines
no -Qdyncom -error_limit 30
no -f66 no -f77rtl
no -fast -fpscomp nofilesfromcmd
-fpscomp nogeneral -fpscomp noioformat
-fpscomp noldio_spacing -fpscomp nologicals
-fixed no -fpconstant
-fpe3 -fprm nearest
no -ftz -fp_model noprecise
-fp_model fast -fp_model nostrict
-fp_model nosource -fp_model nodouble
-fp_model noextended -fp_model novery_fast
-fp_model noexcept -fp_model nono_except
-heap_arrays 0 no -threadprivate_compat
-g2 -iface nomixed_str_len_arg
-iface nono_mixed_str_len_arg -init noarrays
-init nohuge -init noinfinity
-init nominus_huge -init nominus_infinity
-init nominus_tiny -init nonan
-init nosnan -init notiny
-init nozero no -intconstant
-integer_size 32 no -mixed_str_len_arg
no -module -names lowercase
no -noinclude no -o
-offload-build=host -openmp-simd
-O2 no -pad_source
-real_size 32 no -recursive
-reentrancy threaded -vec=simd
-show nofullpath -show noinclude
-show map -show options
no -syntax_only no -threadcom
no -U no -vms
-w noall -w nonone
-w alignments -w nodeclarations
-w noexternals -w general
-w noignore_bounds -w noignore_loc
-w nointerfaces -w noshape
-w notruncated_source -w uncalled
-w uninitialized -w nounused
-w usage no -wrap-margins
Page 6 Source Listing RDRST2D
2025-03-12 18:23 RDRST2D.f
-includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/,
.f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90,
/usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90
-list filename : RDRST2D.lst
no -o
COMPILER: Intel(R) Fortran 19.1-1655