INTERFACE
SUBROUTINE POSNAM(KULNAM,CDNAML)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM
CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML
END SUBROUTINE POSNAM
END INTERFACE