Page 1 Source Listing DMRRRR 2013-05-14 19:53 subroutines.f 1 SUBROUTINE DMRRRR (NRA, NCA, A, LDA, NRB, NCB, B, LDB, NRC, NCC, 2 & C, LDC) 3 4 integer nra,nca,lda,nrb,ncb,ldb,nrc,ncc,ldc 5 double precision a(nra,nca),b(nrb,ncb),c(nrc,ncc) 6 c double precision a(lda,*),b(ldb,*),c(ldc,*) 7 double precision alpha, beta 8 9 if (nca.ne.nrb) print*, '#Columns of A must equal #rows of B' 10 if (ncb.ne.ncc) print*, '#Columns of B must equal #columns of C' 11 if (nra.ne.nrc) print*, '#Rows of A must equal #rows of C' 12 13 alpha=1.0d0 14 beta=0.0d0 15 call DGEMM('n','n',nra,ncb,nca,alpha,a,lda,b, 16 & ldb,beta,c,ldc) 17 18 19 c do 10 i=1,nrc 20 c do 10 j=1,ncc 21 c c(i,j)=0.0 22 c do 15 k=1,nca 23 c c(i,j)=c(i,j)+a(i,k)*b(k,j) 24 c15 continue 25 c10 continue 26 27 return 28 end Page 2 Source Listing DMRRRR 2013-05-14 19:53 Entry Points subroutines.f ENTRY POINTS Name dmrrrr_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 1 R(8) 8 2 0 ARG,INOUT 15 ALPHA Local 7 R(8) 8 scalar 13,15 B Dummy 1 R(8) 8 2 0 ARG,INOUT 15 BETA Local 7 R(8) 8 scalar 14,16 C Dummy 2 R(8) 8 2 0 ARG,INOUT 16 DGEMM Subr 15 15 DMRRRR Subr 1 LDA Dummy 1 I(4) 4 scalar ARG,INOUT 15 LDB Dummy 1 I(4) 4 scalar ARG,INOUT 16 LDC Dummy 2 I(4) 4 scalar ARG,INOUT 16 NCA Dummy 1 I(4) 4 scalar ARG,INOUT 5,9,15 NCB Dummy 1 I(4) 4 scalar ARG,INOUT 5,10,15 NCC Dummy 1 I(4) 4 scalar ARG,INOUT 5,10 NRA Dummy 1 I(4) 4 scalar ARG,INOUT 5,11,15 NRB Dummy 1 I(4) 4 scalar ARG,INOUT 5,9 NRC Dummy 1 I(4) 4 scalar ARG,INOUT 5,11 Page 3 Source Listing DMRRRR 2013-05-14 19:53 subroutines.f 29 30 31 SUBROUTINE DEVCSF (N, A, LDA, EVAL, EVEC, LDEVEC) 32 33 integer n,lda,ldevec 34 double precision a(lda,lda),eval(lda),evec(lda,lda) 35 double precision diag(lda),sdiag(lda) 36 37 external tred2, tql2 38 39 call tred2(lda,lda,a,diag,sdiag,evec) 40 call tql2(lda,lda,diag,sdiag,evec,ierr) 41 42 do 20 l=1,lda 43 eval(l)=diag(l) 44 20 continue 45 46 return 47 end ENTRY POINTS Name devcsf_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 20 Label 44 42 A Dummy 31 R(8) 8 2 0 ARG,INOUT 39 DEVCSF Subr 31 DIAG Local 35 R(8) 8 1 0 39,40,43 EVAL Dummy 31 R(8) 8 1 0 ARG,INOUT 43 EVEC Dummy 31 R(8) 8 2 0 ARG,INOUT 39,40 IERR Local 40 I(4) 4 scalar 40 L Local 42 I(4) 4 scalar 42,43 LDA Dummy 31 I(4) 4 scalar ARG,INOUT 34,35,39,40,42 LDEVEC Dummy 31 I(4) 4 scalar ARG,INOUT N Dummy 31 I(4) 4 scalar ARG,INOUT SDIAG Local 35 R(8) 8 1 0 39,40 TQL2 Subr 37 40 TRED2 Subr 37 39 Page 4 Source Listing DEVCSF 2013-05-14 19:53 Subprograms/Common Blocks subroutines.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References DEVCSF Subr 31 DMRRRR Subr 1 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -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 Page 5 Source Listing DEVCSF 2013-05-14 19:53 subroutines.f -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 -g0 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/usrx/local/intel/composerxe/mkl/include/intel64/lp64/, /usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/gp2/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/gp2/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.6/include/,/usr/include/,/usr/include/ -list filename : subroutines.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100