Compiling error: Intel Visual Fortran + IMSL 7

xie__hui — Tue, 26 Dec 2017 05:37:57 GMT

Hello,

I am trying to compile my old Fortran code (working at Intel Visual Fortran 9 and IMSL 5) under the new system Intel® Parallel Studio XE Composer Edition for Fortran Windows* with Rogue Wave* IMSL* (Intel Visual Fortran Compiler 17.0.1.143. and IMSL 7). Please see the code below. The code uses a built-in IMSL matrix operator .tx. to compute xpxa. However, the system does not recognize this .tx. operator and generate an error message saying that " Dotted string is neither a defined operator nor a structure component". However, if I comment out the problematic line, the code can be compiled that includes the line using IMSL built-in function linds. So it looks that the system can link my code with IMSL but somehow does not recognize the .tx. function. Is there anything that I should/can do to correct the problem?

many thanks.

program test
INCLUDE 'link_fnl_shared.h'
contains

subroutine breg(y,x,betabar,A,betadraw)

    implicit none
    real(8), intent(in) :: y(:),x(:,:),betabar(:),A(:,:)
    real(8), intent(out) :: betadraw(:)
    integer :: k,irank,nobs
    real(8),allocatable :: RA(:,:), W(:,:),z(:), IW(:,:), RIW(:,:),temp(:,:),btilde(:),xpxa(:,:),ixpxa(:,:)

    k=size(betabar)
    nobs=size(y)
    allocate(RA(k,k),W(nobs+k,k),z(nobs+k), IW(k,k), RIW(k,k),temp(1,k),btilde(k),xpxa(k,k),ixpxa(k,k))

    xpxa= (x .tx. x)+ A
   call linds(xpxa, ixpxa)

end subroutine breg

Error 1 error #6866: Dotted string is neither a defined operator nor a structure component. [TX] D:\package\test\Source1.f90 21

Error 2 Compilation Aborted (code 1) D:\package\test\Source1.f90 1

You have to USE the IMSL

Steve_Lionel — Tue, 26 Dec 2017 14:51:20 GMT

You have to USE the IMSL module that declares these operators - I think it is LINEAR_OPERATORS. See the IMSL documentation for details.

Thanks Steve! This fixes my

xie__hui — Tue, 26 Dec 2017 19:04:10 GMT

Thanks Steve! This fixes my issue. The need for this declaration appears to be new for IMSL 7 as the previous version of IMSL does not require this.

That's absolutely not the

Steve_Lionel — Tue, 26 Dec 2017 20:05:34 GMT

That's absolutely not the case - you always needed to USE the module. Without a declaration of a "user-defined operator", the compiler would haven't the faintest clue what .TX. meant.

topic Thanks Steve! This fixes my in Intel® Fortran Compiler

Compiling error: Intel Visual Fortran + IMSL 7

You have to USE the IMSL

Thanks Steve! This fixes my

That's absolutely not the