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