INTERFACE
SUBROUTINE SRTM_KGB16(DIRECTORY)
CHARACTER(LEN=*), INTENT(IN) :: DIRECTORY
END SUBROUTINE SRTM_KGB16
END INTERFACE