1 Reply Latest reply on Sep 6, 2018 1:32 PM by Intel Corporation

    Unable to Resolve Intel MKL run time error

    me17amtech11002

      Sir,

       

      I am running a FORTRAN Project in Visual Studio Community 2017 using Intel Parallel Studio Cluster Edition 2018. But, during running the code, I am getting a run-time error:

       

      Intel MKL Error: Parameter 3 was incorrect on entry to DPBSV (DPBSV Solves the system of Equations and gives the solution to the system of equations). This is an inbuilt MKL subroutine.

      Parameter 3 is the parameter which holds the number of superdiagonals in case of upper triangular matrix and it is number of subdiagonals, in the case of lower triangular matrix. The subroutine is given below:

       

      subroutine solve_disp_banded

          use var_inputdata

          use var_analysis

              implicit none

              integer::i13,j13,iii

             

             INTEGER(4):: LDAB,KD,NRHS

             real*8, ALLOCATABLE:: TEMP(:)

             INTEGER(4):: INFO

             CHARACTER(1):: UPLO

       

       

             allocate(pvect1(tdof1),uvect1(tdof1),uvect(tdof))

             uvect=0.0

             

              do j13=1,tdof1

                  pvect1(j13)=pvect(3*anodes+j13)

              enddo

      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

             

            allocate(TEMP(tdof1))

       

       

            TEMP=pvect1

            KD=band_width-1

            LDAB=KD+1

            NRHS=1

            UPLO='U'

            CALL DPBSV(UPLO,tdof1,KD,NRHS,kmat(:,3*anodes+1:tdof),LDAB,pvect1,tdof1,INFO)

            uvect1=pvect1

            pvect1=TEMP

       

       

      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

             

              do i13=1,tdof1

                  uvect(3*anodes+i13)=uvect1(i13)

              enddo

                  

             DEALLOCATE (uvect1,pvect1,pvect,kmat)

       

       

           return

          end subroutine

       

      What causes this run time error ?

       

      I request you to please guide me in  fixing this issue.

       

      Thanks in advance !