Solution

And the answer is...

    INTERFACE
     SUBROUTINE SGETRI_F90(A, IPIV, INFO )
       USE LA_PRECISION, ONLY:WP
       REAL(KIND=WP), INTENT(INOUT), DIMENSION(:,:) :: A
       INTEGER, INTENT(IN), DIMENSION(:)            :: IPIV
       INTEGER, INTENT(OUT)                         :: INFO
     END SUBROUTINE SGETRI_F90
    END INTERFACE