INTERFACE
SUBROUTINE SCORDO(KORDR,PFREQR,PFREQI,PWHOU,PWORK)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KORDR
REAL(KIND=JPRB) ,INTENT(INOUT) :: PFREQR(KORDR)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PFREQI(KORDR)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PWHOU(KORDR,KORDR)
REAL(KIND=JPRB) ,INTENT(OUT) :: PWORK(KORDR,KORDR)
END SUBROUTINE SCORDO
END INTERFACE
