Interfaces

What is the interface of the following procedure?

SUBROUTINE SGETRI_F90(A, IPIV, INFO )
   USE LA_PRECISION, ONLY:WP
   IMPLICIT NONE
   REAL(KIND=WP), INTENT(INOUT), DIMENSION(:,:) :: A
   REAL(KIND=WP), ALLOCATABLE, DIMENSION(:,:)   :: WORK
   INTEGER, INTENT(IN), DIMENSION(:)            :: IPIV
   INTEGER, INTENT(OUT)                         :: INFO
   INTEGER                                      :: N
   INTEGER                                      :: ILAENV
   EXTERNAL  ILAENV
   INTRINSIC MIN, MATMUL
   INFO = 0
   N = SIZE(A,1)
   IF (SIZE(A,2) /= N) THEN
      INFO = -1
   ELSE IF (SIZE(IPIV,1) /= N) THEN
      INFO = -2
   ENDIF
   IF( N.EQ.0 ) RETURN
     ....
END SUBROUTINE SGETRI_F90

Go back to Notes

• Solution