Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Black Belt
13 Views

Duplicate interface blocks in Lapack95

The file lapack_interfaces.f90 in the ...\MKL\interfaces\lapack95\sources directory contains duplicate interface blocks for the following 62 routines:

F77_DTSVB
F77_DTTRSB
F77_GBRFS
F77_GBSV
F77_GBSVX
F77_GBTRS
F77_GELS
F77_GELSD
F77_GELSS
F77_GELSY
F77_GERFS
F77_GESV
F77_GESVX
F77_GETRS
F77_GTRFS
F77_GTSV
F77_GTSVX
F77_GTTRS
F77_HERFS
F77_HESV
F77_HESVX
F77_HESV_ROOK
F77_HETRS
F77_HETRS2
F77_HETRS_ROOK
F77_HPRFS
F77_HPSV
F77_HPSVX
F77_HPTRS
F77_PBRFS
F77_PBSV
F77_PBSVX
F77_PBTRS
F77_PORFS
F77_POSV
F77_POSVX
F77_POTRS
F77_PPRFS
F77_PPSV
F77_PPSVX
F77_PPTRS
F77_PTRFS
F77_PTSV
F77_PTSVX
F77_PTTRS
F77_SPRFS
F77_SPSV
F77_SPSVX
F77_SPTRS
F77_SYRFS
F77_SYSV
F77_SYSVX
F77_SYSV_ROOK
F77_SYTRS
F77_SYTRS2
F77_SYTRS_ROOK
F77_TBRFS
F77_TBTRS
F77_TPRFS
F77_TPTRS
F77_TRRFS
F77_TRTRS

For example:

grep -in F77_DTSVB lapack_interfaces.f90
4493:INTERFACE F77_DTSVB
4538:END INTERFACE F77_DTSVB
17186:INTERFACE F77_DTSVB
17231:END INTERFACE F77_DTSVB

Is there a purpose for this duplication? Thanks.

P.S., a day later : I overlooked the fact that the file contains two modules, and that the duplicates exist only across modules, i.e., there are no duplicates within a single module.

0 Kudos
1 Reply
Highlighted
Moderator
13 Views

yes, there are two modules MODULE F77_LAPACK and MODULE F77_LAPACK1 into lapack_interfaces.f90 file.

0 Kudos